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PREFACE 

A variety of computational methods have been developed to obtain 
shockless or near shockless flow past two-dimensional airfoils. Our 
approach has been the method of complex characteristics, which 
determines smooth solutions to the transonic flow equations based on an 
input speed distribution. The approach is to find solutions of the 
partial differential equation 

(c 2 -U 2 ) $ xx - 2uv + (c 2 -V 2 ) $ yy = 0 

by the method of complex characteristics. Here $ is the velocity 
potential, V<& = (u,v), and c is the local speed of sound. Our method 
consists of noting that the coefficients of the equation are analytic, 
so that we can use analytic continuation, conformal mapping, and a 
spectral method in the hodograph plane to determine the flow. 

After complex extension we obtain canonical equations for ® and 
for the stream function ¥ as well as an explicit map from the hodograph 
plane to complex characteristic coordinates. In the subsonic case, a 
new coordinate system is defined in which the flow region corresponds 
to the interior of an ellipse. We construct special solutions of the 
flow equations in these coordinates by solving characteristic initial 
value problems in the ellipse with initial data defined by the complete 
system of Chebyshev polynomials. The condition ¥ = 0 on the boundary 
of the ellipse is used to determine the series representation of $ and 
T . The map from the ellipse to the complex flow coordinates is found 
from data specifying the speed q as a function of the arc length s. The 
transonic problem for shockless flow becomes well posed after 
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appropriate modifications of this procedure. The nonlinearity of the 
problem is handled by an iterative method that determines the boundary 
value problem in the ellipse and the map function in sequence. 

We have implemented this method as a computer code to design 
two-dimensional cascades and isolated wing sections. A particular 
feature of this approach concerns the design of compressor blades with 
high solidity. We have been able to obtain gap-to-chord ratios as low 
as .42 with the computer program presented here. 

The first portion of this report is devoted to mathematical 
theory. After a brief introduction to the problem in Chapter 1, 
Chapter 2 presents general results from fluid mechanics. Chapter 3 is 
an account of the method of complex characteristics, including a 
description of the particular spaces and coordinates, conformal 
transformations, and numerical procedures that are used. The remainder 
of the report concerns the operation of the computer program COMPRES. 
Chapter 4 presents examples of blade sections designed with the code, 
and Chapter 5 is a manual for users of our program. The glossaries 
presented in Chapter 6 provide additional information which may be 
helpful to users. Finally, in Chapter 9 we present a listing of the 
computer program in Fortran, including numerous comment cards. 

I would like to make a few acknowledgements. Professor Paul 
Garabedian suggested this project and has guided me with untiring 
patience. Dr. Frances Bauer and Dr. Jose Sanz have contributed to 
various stages of the work. Finally, I would like to thank my family 
for their support. 
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I. INTRODUCTION 


1.1 The physical problem 


In recent years the development of numerical techniques for 
computing solutions to the differential equations of transonic 
aerodynamics has made useful mathematical models available to 
aeronautical engineers engaged in the study of physical problems. 
These models can replace costly and difficult wind tunnel experiments, 
especially in the case of two-dimensional flow. Thus they have 
fostered the rapid and efficient development of supercritical wing 
technology. 

When attempting to model a physical system numerically, the 
mathematical formulation which results may have a significance which is 
independent of the original purpose of the investigation. Still, 
knowledge of the physical problem guides the researcher in approaching 
the solution and interpreting the results. The motivation for our 
problem involves the flow of air through an arrangement of rotating 
axial blades. These may be compressors which are designed to increase 
the pressure and density of the fluid passing through them, or turbines 
which lower these quantities and increase the speed. Such systems are 
a basic component of jet engines, and hence are of crucial importance 
to modern aerodynamics. In addition, we will consider the case of an 
isolated wing. When the maximum speed past these bodies exceeds sonic 
speed, the ' wave drag caused by shock waves in the supersonic flow 
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region must be minimized. We wish to design blades for which this low 
drag occurs. 

Figure 1 shows a plot of the lift coefficient C L and of the drag 
coefficient versus the free stream Mach number H*, for a typical wing 
section [17]. The drag coefficient does not increase just above the 
critical Mach number because the shock wave is weak, but at the 
drag rise Mach number M^ there is a jump in the size of the supersonic 
zone and drag rise begins. The lift coefficient grows between M Q and 
the value of at which the boundary layer separates. In this 
interval it can be seen that (>^L)/D will have a maximum. This ratio, 
where L is the lift and D is the drag, can be used as a measure of 
airfoil efficiency. Ac the maximum will be subsonic while speeds 
are supersonic along a portion of the airfoil, so that the flow will be 
transonic. 

The proper design of the profile can delay drag rise to higher 
Mach numbers, resulting in maximum efficiency at greater speed. In 
particular, airfoils which admit shockless flows at certain operating 
conditions delay drag rise at nearby conditions. Hence we consider the 
problem of determining a series of blades which allow shockless 
transonic flow at particular operating conditions. We can expect such 
systems to admit flows with minimal drag for a certain range of 
boundary values. 

We turn now to the simplifications necessary to generate a 
mathematical model of compressor and turbine flow. First, let us 
consider the geometry of the problem. The systems of blades are 
mounted on a rotating cylinder in a gas flowing in the direction of the 
axis. A logarithmic transformation will map this configuration into a 
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series of blades which are stacked vertically. If the z-axis lies in 
the direction of the span of the blades, the (x,y)-plane becomes 
orthogonal to them. Let us suppose that the flow lies in the 
(x,y)-plane, which is a widely used approximation. We thus arrive at 
the problem of plane compressible flow past a periodic array of 
airfoils in cascade. 

We assume that the airfoils are streamlined so that viscous 
effects are confined to the immediate vicinity of the profile. In this 
case the flow outside the boundary layer can be found using the partial 
differential equations describing inviscid fluid motion. This solution 
can be then used to calculate a boundary layer correction from which 
the profile may be obtained. We also assume that time dependent 
effects are negligible, so that the flow is steady. As a result, our 
mathematical problem concerns the determination of the steady shockless 
flow of an inviscid compressible fluid past an individual airfoil or a 
cascade or airfoils in the (x,y) plane. 
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1.2 The theory of shockless flow 


The mathematical theory of 

the 

transonic 

flow 

equations 

is 

difficult, and few theorems on 

the 

existence 

and 

uniqueness 

of 


solutions have been proven. Whenever the flow is not entirely 
subsonic, smooth solutions to the equations are exceptional and cannot 
usually be expected. Generally, the solution contains shocks, and 
shock conditions and an entropy inequality must be satisfied. 
Numerical studies of the equations, however, suggest that there may 
exist a unique weak solution to the direct problem of flow past a given 
profile. Any smooth solution to the equations would then coincide with 
this unique weak solution. 

The fact that solutions of the transonic equations are not in 
general smooth was demonstrated in 1956 by Morawetz [14] following a 
decade of controversy. At that time, however, the physical 
significance of shockless flows could not be evaluated. Then in the 
1960s Pearcey [19] performed experiments that exhibited nearly 

shockless flow past transonic airfoils having a suction pressure peak 
near the leading edge. This was followed by Whitcomb's discovery of 
the supercritical wing [27], which has a large supersonic zone and 
minimal boundary layer separation. Later Spee and Uijlenhoet [24] did 
wind tunnel tests of a symmetric shockless airfoil designed by 
Nieuwland [18] using the hodograph method. They obtained essentially 

shockless flow that agreed with the mathematical predictions. \ These 

• * 

developments confirmed the existence of nearly shockless flows in 
nature and established their effectiveness in reducing drag. 
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Further advances in transonic flow theory resulted from the 
development of finite difference schemes to solve the partial 
differential equations of motion. Most important was the method of 
Murman and Cole [15], which captures shocks in the supersonic region 
through the use of an artificial viscosity term obtained by retarding 
difference operators in the direction of the flow. Such schemes are 
now used routinely to analyze flows in two and three dimensions past 
wings and wing body combinations [3], They show that drag and shock 
strength vary continuously with the shape of the profile and with 
operating conditions. Moreover, the solutions confirm that profiles 
which are shockless at given design conditions exhibit weaker shocks at 
off-design conditions than do other airfoils. 

In the light of these developments the genuine significance of 
shockless flow and the importance of methods for computing 
supercritical airfoils are recognized. Such methods are generally 
inverse methods in which the profile is found from the solution to the 
flow equations as the locus of points where the stream function 
vanishes. Our purpose here will be to describe one such method, the 
method of complex characteristics [2,4]. 
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1.3 Design of supercritical airfoils 


We review briefly methods of solving the transonic flow equations 
that result in solutions which are smooth or have weak shocks. Because 
arbitrary boundary condtions will not yield such. solutions , these are 
design methods in which the profile is determined in the course of the 
computation. The reader is referred to the literature for a general 
survey of techniques for finding transonic flows [17]. 

Nieuwland [18] developed a technique for computing shockless 
airfoils in which the stream function is determined as a linear 
combination of solutions found by separation of variables in the 
hodograph plane. His work resulted in the first realistic symmetric 
shockless airfoils, whose flow properties were then verified by the 
wind tunnel tests of Spee and Uijlenhoet [24], 

Some methods [5,11] are based on the small disturbance equation. 
The solution is expanded in a parameter describing the thickness of the 
airfoil, where the zero order approximation is a slit. A nonlinear 
differential equation results for the first order terms of the 
expansion. The desired pressure distribution along the profile is 
given as a boundary condition, and actual coordinates are determined 
from the resulting velocity components. This method has been extended 
to the full 3-dimensional problem [1], 

Further methods solve the inverse problem for the full potential 
equation with a free boundary. Carlson [6] uses a prescribed 
distribution to obtain Dirichlet boundary conditions for the velocity 
potential in Cartesian coordinates. Tranen [26] uses the NYU analysis 
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code [3] to iterate between design and analysis computations. At each 
cycle the prescribed pressure distribution is modified to achieve 
convergence. 

McFadden [13] has also used the NYU analysis code to des'^n 
airfoils with weak shocks by an iterative method which uses a 
prescribed speed distribution q(s) to approximate the conformal map 
from the airfoil to the unit circle. The solution computed by the 
analysis code is then used to improve the approximation. This method 
has been extended to three dimensions and applied to construct swept 
wings with low levels of wave drag in transonic flow [10]. 

Sobieczky, Fung and Seebass [23] find shockless flow in two and 
three dimensions by introducing a fictitious gas law. When the flow 
becomes supersonic, the equation of state is changed to make the 
equation for the velocity potential remain elliptic. Standard 
difference schemes are applied, and a correct solution emerges in the 
subsonic flow region, but not in the supersonic zone. Consequently the 
correct hyperbolic equations must be solved there along real 
characteristics extending from the sonic line. The body is determined 
by tracing stream lines. This technique is similar to one exploited by 
Shiffman in 1952 to prove existence theorems [22], 

The method of- complex characteristics developed by Bauer, 
Garabedian and Korn [2,4] solves the equations in the hodograph plane 
by extending all variables into the complex domain, where the notion of 
type is no longer significant. The subsonic flow region is mapped into 
a unit circle in the complex domain and a series of characteristic 
initial value problems are solv * '..ere. Smooth solutions are found by 
prescribing a relationship on the circumference of the circle between 
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the speed q of the flow and the arc length s along the airfoil. In the 
complex domain this leads to a well posed boundary value problem even 
for transonic flow. The profile is obtained after the solution is 
determined in the real supersonic zone. This method has the advantage 
that it can be used to design a cascade of shockless airfoils. Since 
the present work is an extension of this method, it will be described 
in detail in Chapter 3. 

Sanz [21] has modified the method of complex characteristics by 
introducing a new coordinate transformation so that the supersonic flow 
region maps into an ellipse. This allows for the computation of flows 
through cascades of compressor airfoils with gap-to-chord ratios G/C as 
low as 0.5, which was beyond the scope of the previous code. Our new 
version of the design code also computes a solution using elliptic 
coordinates. In addition, modifications of the paths of integration 
and of the quantities computed along them allow solutions to be 
obtained for a wider range of boundary data. 
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II. MATHEMATICAL BACKGROUND 


2. 1 The differential equations of transonic flow 

We shall be concerned with the partial differential equations 
governing the two-dimensional steady flow of a compressible inviscid 
fluid [7], These are 


(PU) X + (PV)y = 0 

PUU X + PVUy + p x = 0 
PUV X + PWy + Py = 0 
uS x 4 VSy = 0 

where x and y are the rectangular coordinates in the physical plane, u 
and v are the components of velocity, p is the density, p is the 
pressure, and S is the entropy. We assume an equation of state of the 
form p = A pY t where A is a known function of S and y is the gas 
constant. We denote by q the speed of the flow, by c the local speed 
of sound, and by M = q/c the Mach number. 

Transonic solutions of the equations of motion are weak solutions 
containing shock waves on which only integral forms of the differential 
equations are satisfied. Across these curves there are jump conditions 
which specify conservation of mass, momentum and energy, and there is 
an entropy inequality which assures that the shock is compressive. 
This jump in entropy is third order in the shock strength. Si.je the 
flow past wing sections is uniform far from the profile, the entropy is 
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constant there, and it will remain constant in the region where the 
flow is continuous. Because we are concerned with shockless flows, we 
may therefore assume that the entropy is constant everywhere and that 
the flow is isentropic throughout. For flows containing shocks, such 
an assumption is equivalent to using alternate shock conditions in 
which the normal component of momentum is not conserved. The jump in 
this quantity can be considered an approximation of the wave drag that 
the shock exerts on the airfoil. 

In the isentropic case the flow is irrotational and satisfies the 
equation 


u y - v x = 0 


We have then a velocity potential $(x,y) satisfying 


4> x = u , * y - v 


and a stream function ¥ (x,y) such that 


?x - - Pv , Y y - pu 


These relations comprise a pair of generalized Cauchy-Riemann equations 
for $ and Y with coefficients defined by Bernoulli's law 


2 2 
1 + c - 
T + y=T 7 — 


st + st = l Hi. c* 2 


where c* is the critical speed at which M 2 = 1. These equations are 
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elliptic when M 2 < l and hyperbolic when M 2 > 1. Alternatively we can 
obtain the single second order differential equation 


(c 2 -u 2 ) * - 2uv 4>w + (c z ~v z ) 4> 


2 _„ 2 > 


XX 


xy 


yy 


f or t> . 

These nonlinear formulations are convenient for many purposes, 
including finite difference methods for capturing shocks. For design 
or inverse problems, however, it is more natural to apply the hodograph 
transformation, in which the dependent and independent variables are 
interchanged and a linear system of equations results. For such a 
hodograph formulation, boundary conditions are based on some property 
of the flow, and the profile is then determined from the solution as 
the streamline V - 0. 

One version of the hodograph flow equations is given by 

x v - y u " 0 


(c 2 -u 2 ) y v + uv(x v + y u ) + (c 2 ~v 2 ) ^ = 0 

Here the Jacobian J = ^y v - x v y u must be nonzero in order to represent 
a physically reasonable flow. In the subsonic region J can vanish only 
at isolated points, as is seen from the expression 

-(c 2 -u 2 ) J = (c 2— u 2 ) x v 2 + 2uv x u x v + (c 2— v 2 ) x u 2 . 

For supersonic flow J can be nontrivially zero along a curve in the 
(u,v)-plane whose image in the physical plane is a limiting line along 
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which different branches of the solutions u(x,y) and v(x,y) are joined 
[7]. Although such curves cannot be allowed to occur in the flow 
field, they may exist in the region of the (x,y)-plane enclosed by the 
profile. Once a hodograph solution has been found, x and y may be 
determined along the profile 'F = 0 from the expression 


x + ly = J 


d <b 


+ i * 
P 
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2.2 Characteristic coordinates and canonical equations 


An equivalent formulation of the system in the hodograph plane is 
given by the Chaplygin equations 


If; 


M 2 -l 

pq 


where 0 is the angle of the flow. For the hyperbolic case > 1, 
these can be transformed by introducing characteristic directions in 
the (q ,0 )-plane. , These comprise a curvilinear net of characteristic 
coordinates (£ ,n ) that are constant on the two independent sets of real 
characteristics. In the (u,v)-plane they describe epicycloids cusping 
at the sonic line = l. Under this coordinate change we obtain two 
equations, in each of which and ¥ are differentiated in only one 
characteristic direction. This formulation allows for the solution of 
characteristic initial value problems in which compatible initial data 
for 9 and T are given along two characteristics £ = £^ and n = n^. The 
solution is found in a quadrant bounded by these lines. 

In the elliptic case < 1, the characteristic directions are 
complex and conjugate. Hence to apply characteristic coordinates to 
transonic flow problems, we continue all dependent and independent 
variables analytically into the complex domain. This is possible 
because the system for <J> and ¥ is analytic in all arguments. Complex 
characteristic coordinates £(q,0) and n(q,0) then exist everywhere and 
complex analytic solutions <t> and '? to characteristic initial value 
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problems can be found throughout the four-dimensional complex 
(5 ,n )-space. 


Defining r = J dq we may introduce the characteristic 

q 

coordinates % = 0 + ir, n =0 - ir. The system of canonical equations 
for the characteristics and for $ and 'f then becomes 


i/l-M 2 

0 C 5 — ^ 


-i/l-M 2 


% 


i/l-M 2 


= 


-i/l-M 2 


These characteristic coordinates are not unique. If £ and n are 
characteristic coordinates and if $ *» f(5 ) and n => g(n ), where f and g 
are complex analytic functions, then £ and n are also characteristic 
coordinates. We shall denote by (s,t) the particular set of 
characteristic coordinates given by 

s = h(q) e - *® , t = h(q) e 1 -® 


where h 53 e r . 

The method of complex characteristics breaks down on the 
two-dimensional sonic surface, resulting in a singularity of the 
characteristic coordinate transformation. The difference scheme used 
to obtain solutions becomes singular at points where = 1 and is 
ill-conditioned at nearby points. Hence, all computational grids must 
be constructed to avoid this surface. 
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Although all variables have been extended into the complex domain, 
we are only interested in aolutions $ and 'P in the real (q,0)-plane. 
Hence we wish to know where this plane lies in the (s,t)-coordinate 
system. First, let us state a simple result: 

LEMMA. We have s = t if and only if h and 0 are real. 

PROOF. If s = t, then h e - *® = h e - *® , so that h/h = e ~i(0“®)» 
Because |h/h|=l and 6 - 0 is imaginary, it follows that 0-0 vanishes, 

so that 0 is real. In addition, h/h = 1, and therefore h is also real. 
The proof in the opposite direction is immediate. 

For the subsonic case, the quantity h is real when q is real so 
that the real subsonic domain lies in the plane s = t. For M^ > 1, 
however, h is not real, so the real supersonic domain lies outside of 
the plane s = t on the complex surface defined by |s| = |t| = |h(c*)|. 
This surface attaches to the plane s = t along the curve in (s,t)-space 
which is the image of the sonic line. 

A major problem with the hodograph method is that the flow region 
in the velocity plane is unknown and may have a complicated geometry. 
Instead of using complex characteristic coordinates (s,t), we may 
perform a conformal mapping which eliminates this difficulty. By the 
Riemann mapping theorem, a second set of characteristic coordinates £ 
and q can be determined by sending a fixed region in the plane % - n to 
the subsonic flow region in the plane s = t. If we require that the 
transformation has the form s = f(£), t = f(h), the plane s = t will 
correspond to the plane £ = n. The new coordinates will be found by 
solving a nonlinear boundary value problem for f. 
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Because the solution to be constructed lies in the 
four-dimensional space of two complex variables, characteristic initial 
value problems for $ and ¥ are solved by imposing initial data for on 
two characteristic planes £ - S c and n = h c . Let this initial data be 
given by 

*« c ,n) « F^n) , TG.nc) - f 2 (5 ) 

where the analytic functions Fj and F2 satisfy the compatibility 
condition Fj(tiq) = F 2 (£(]). Then 4 can be determined on the 

characteristic initial planes from the canonical equations. In order 
to find the solution at a point (£ ,n ) of complex space, paths of 
integration originating at the point (E c ,n c ) and terminating at (£ c ,n) 
and (5 ,n c ) must be drawn in the two initial planes. The solution can 
then be found from the initial data by constructing a grid bounded by 
the two paths and applying a finite difference scheme. 

The existence and uniqueness of solutions to characteristic 
initial value problems are proven by formulating the system for $ and T 

j j 1 w2 

as a pair of integral equations. Setting x = * the integral form 

of the canonical equations becomes 

5 

* (5 ) - * (5 c ,n ) + J x <g ,n ) (£,n ) df 

n 

*(5,n) -*(5,n c ) - J T (5 ,n ) % (? ,n ) dn 


Integrating by parts we obtain 
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£ 

*«.»>) = *(C c ,n) + x(c,n) T (C ,n ) - T<£ c ,n) ’?(5 c ,n) - J r c (f,n) *<£,*) df 

T1 

*(C,n) = *(£,n c ) - T(S,n) ¥(C,d) + t(i- ,n c ) ¥(£ ,n c ) + J ^ (£ ,n ) VK.n) tfr 

n c 

These can be combined to form a single integral equation for Y , 

= ' Z( - (Z 7TTT - 4>(Cc^) + T(C,n c ) V (£ »b C ) + ^(Cc^) '•'(Cc^) 

n £ 

+ J x n (c ,n ) ? (£ ,h )dn + J (£ ,n ) * (£> ) *] 
n c ? c 

The solution is found by Picard iteration. The iteration is 
initialized by setting 

^ (o) «,n) = f 2 (c> + F^n) - FjChc) 

and determining $(°) from the differential equations. Using standard 
techniques, it is then shown that each pair of iterates and ¥ 

satisfies the data on the characteristic initial planes and that the 
iterative scheme converges uniformly in some neighborhood of (£c,tiq) to 
a unique solution. Each pair of iterates is analytic so that by 
Cauchy's integral theorem, the integrals in the above expression for Y 
are path independent. As a result the solution is analytic and 
independent of the particular pair of paths of integration chosen to 
connect the point (£ c ,n c ) with the points (£ ,n c ) and (£ c ,n). 
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2.3 The reflection principle in two complex variables 


We review here results concerning analytic functions of two 
complex variables which we shall use in solving the canonical equations 
by the method of complex characteristics. 

DEFINITION. An analytic function F(£,n) of two complex variables 
is called a real function if F is real in the plane £ = n . 

Such functions become analogous to real functions in the real 
(x,y)-plane if one makes the substitution z = x + iy, z = x-iy and uses 
the complex coordinates £ = z and h = z. The Schwarz reflection 
principle for these functions may be stated as follows: 

THEOREM. F(£ ,n ) is a real function in the above sense if and only 
if F(£ ,n ) = F(n,f). 

PROOF. Let 

K5 ,n) = F(£ ,n ) - F(n,f) 

If F is a real function we have F(£ ,n ) = F(n,£) in the plane £ = n by 
hypothesis, so I vanishes there. Since I is an analytic function of 
the two complex variables £ and n , it must be identically zero. The 
converse is immediate. 

We shall choose our complex characteristic coordinates so that the 
physical flow region lies in the plane £ = n for subsonic flow, and we 
shall solve characteristic initial value problems to obtain $ and 'P 
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there. Because of the reflection principle, the computation of real 
solutions to characteristic initial value problems will simplify in a 
manner to be described. Hence we should like the solutions to the 
canonical equations to be linear combinations of real functions. We 
must therefore know how to set up characteristic initial value problems 
which will result in real functions. We shall show that for subsonic 
flow the solutions of our system for 4> and ¥ are real when the 
characteristic initial data have an appropriate symmetry property. 

Let us choose characteristic initial planes £ =' £ c and n = ri c 
through the real point The symmetry property required of the 
initial data is given by 

v«,t> c )-f(o , n5 c ,h) - foT) 

where F is an analytic function which is real at QZq,t\q). Note that 
for subsonic flow ix (5 ,ti ) is a real function, and hence x (£ ,n ) = 
-x(n,£). Moreover, since 

w ‘ - 7 - F <"> 

/dn/ 


we have from the integral form of the canonical equations 


♦ (Cc.n) = *(n»n c ) 


so that ♦ has the same symmetry property on the initial 
characteristics. We now prove the following 



- 20 - 


THEOREM. Let $ (£ ,n ) , ' ¥ (£ ,n ) be a solution of a characteristic 
initial value problem for the flow equations with data satisfying the 
symmetry requirements 

*«c,n) > *(5 c .n) «Tfo.i c ) 

Then $ (C ,n ) and ¥ (£ ,n ) are real functions. 

PROOF. Observe that <!>(£,ri), ¥ (£ ,h ) and 4>(n,0> (h ,K ) satisfy the 
same differential equations with the same characteristic initial 
values. Hence they must be equal because of the uniqueness theorem for 
the solution. 
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2.4 Boundary conditions 

There are both direct and inverse approaches to finding the flow 
past an airfoil, and different boundary conditions are associated with 
each problem. In the direct problem the coordinates x and y of the 
airfoil are specified as functions of the arc length s measured from 
the trailing edge on the lower surface to the trailing edge on the 
upper surface. The frame of reference is chosen so that the cascade of 
airfoils is at rest. The inlet speed at infinity is given, and 
defining the stagger angle $ as the angle between the cascade of blades 
and the vertical, the blades are oriented so that 3 = 0. The Mach 
number at some fixed speed q must also be specified, which determines 
c*. Since the flow must be tangential to the boundary, the stream 
function vanishes there, 


V (x(s), y(s ) ) = 0 

The circulation T will be determined by the Kutta-Joukowski condition 
asserting that the velocity must be finite at the trailing edge. This 
formulation of the problem can be solved by standard finite difference 
methods [3], and results in weak solutions which generally contain a 
number of shocks in the supersonic zone. 

In this report, we will use the inverse approach to the problem. 
This results in a free boundary problem in which the profile will be 
determined as the locus of points where ¥ = 0. The Mach number at a 
fixed speed is given, and the coordinate system is again rotated so 
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chat 8*0. But now we prescribe, instead of the shape of the profile, 
the speed distribution q(s) to be achieved along the boundary. When 
max q(s) > c*, the flow will be transonic and the flow equations will 
be of mixed type. In prescribing q, we determine 

* (s) = ] q(s) ds 

as a function of s. We can also find the circulation T by integrating q 
around the entire profile. For transonic flow, this problem is not 
well posed, so we cannot expect that an appropriate profile will always 
be found having everywhere the prescribed pressure distribution. In 
order to design shockless airfoils by this inverse method, we develop a 
way of modifying the prescribed data in the supersonic zone to obtain 
smooth flow past a physically reasonable airfoil. 
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III. THE METHOD OF COMPLEX CHARACTERISTICS 


3. 1 Conformal mapping 


The method of complex characteristics is concerned with analytic 
solutions of the canonical system 


i/ 1-M 
K 5 — % 


-i/ 1-M 2 

q % 


We shall be interested in the case where the boundary values of T and q 
are assigned on an ellipse in the £ -plane. The solution of the 
boundary value problem will be found by a spectral method. In the 
transonic case the boundary data must be modified to make the problem 
well posed. In our exposition we shall first treat the subsonic case 
and then present modifications which allow us to find shockless 
transonic flows. 

All quantities have been extended into the complex domain by 
analytic continuation. Using the conjugate characteristic coordinates 
presented in Section 2.2, 


s = h(q)e - *® , t = h(q ) e*® 


the real subsonic flow region corresponds to the plane s = t. In order 
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that <& and V be real-valued in this region the reflection principle of 


Section 2.3 

can be used to 

construct 

solutions 

to 

the 

canonical 

equations 

which are real 

functions. 

However, 

it 

will 

be more 


convenient in practice to use the fact that for arbitrary complex 
solutions <t and V , Re($) and Re^ ) satisfy the flow equations over the 
real domain. 

Let us introduce a conformal map 


s « g " S ° e f(C) 
k£-C 0 


t 


n ° e f(n) 

toi-n 0 


sending a fixed domain in the plane £ = n into the flow region in the 
plane s = t. Here £q = n q is the point on the ellipse boundary 
corresponding to stagnation, and k is a constant of absolute value less 
than 1 which is introduced to improve convergence. The fixed domain 
should possess a complete system of analytic functions which can be 
used to represent the flow. In an earlier version of the method the 
unit circle |C | < 1 was mapped onto the flow region and analytic 
functions were represented as power series [4], We now replace the 
unit circle by an ellipse with foci at 11, where the Chebyshev 
polynomials form a complete orthogonal system. The ellipse can be 
identified with a circular ring in the z-plane under the transformation 


5 





identifying the straight line between the foci with the unit circle. 
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and an arbitrary point £ with the pair of points z and 2 .. Then the 

z 

Chebyshev polynomials are expressed as 

T (C ) = l(z n + -L) 

2 z n 

Consider the Laurent series for a* function in the ring taking 
identical values at z and 1/z. This leads us to represent the analytic 
function f(£ ) in the form 

00 

f(0 - l a n T n (£ ) 
n=0 

If Re(f) is known at equally spaced points on the circle |z| = R, R<1, 
the coefficients of a truncated Chebyshev expansion for f within the 
ring R< | z | <1 /R can be determined using the fast Fourier transform. The 
boundary values of Re(f ) depend both on the assigned data for the speed 
q as a function of arc length and on the solution $ in the ellipse. 
This will be discussed in more detail in the following section. 
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3.2 Solutions in the ellipse 


In the ellipse in the £ -plane or in the hodograph plane, there are 
points corresponding to the velocity at infinity. For a cascade let £ A 
denote the point in the plane £ = q corresponding -to the exit velocity 
and let £ g denote the point corresponding to the inlet velocity. At £ A 
we have a sink and at £ g a source, so that $ and ¥ are singular there. 

A branch cut connects these points (cf. Figure 2) and the flow region 
is represented by an infinite-sheeted Riemann surface. The ellipse has 
been chosen for the design of compressors with low gap-to-chord ratios 
because it becomes necessary to locate £ A and £ B near the boundary. 
This leads to difficulties in constructing paths of integration unless 
the transformation to the hodograph plane redistributes mesh points 
appropriately. 

The stream function ’? possesses singularities at £ A and £ B which 
are derived from the fundamental solution of the linear partial 
differential equations in the hodograph plane [ S ] . For a cascade we 
have 

T(£,n) - Of ! (£ ,n ) + i* A ) log(£-£ A ) + C? 2 (£,n) + i? B ) log<£ -? B ) + '? 3 (£,n) 

where the T j are real analytic functions which are regular at £ A and £ B 
and '? A and T B are real constants. Similarly, 

*(5,n) = (<*> ! (£ ,n ) + i* A ) log(£-£ A ) + (* 2 (^.n) + i* B ) log(£-5 B > +* 3 «,n) 
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We wish to construct characteristic initial value problems for the 
functions Y j and 4 j and to determine appropriate initial data. 

Applying the canonical equations and equating the coefficients of 
singular terms, we obtain the following differential equations: 


*15 

1C 

9 

•h 

= 

*2£ 


9 

* 2n 

= ^2n 

*3C 

= TY IT - 

f (4 1 +i4 A )^(Y 1 +iY A ) (4 2 +i4 B )-r(Y 2 +i'l'B) 1 

* 3n 

- -**3n 

IT 3^ 

1 FtX _ + J ’ 


In order that the first inhomogeneous term above be regular, the 
restriction *]+i4 A = T j+iY A ) is imposed on the characteristic plane C 
- 5 A . This together with the differential equations will determine 4 j 

and on the plane Z - C A U P to t * ie real constants 4 A and Y A . If, 
moreover, we wish 4 ^ and Y ^ to be real functions, we may impose 
symmetric data on the plane n = n Aj where Ca “ h A » thus obtaining a 
characteristic initial value problem for 4^ andTj. Similarly, we 
obtain a characteristic initial value problem for real functions 4 2 and 
^2 with symmetric initial data on the planes Z = Cg and n = hg, where 
5 3 = The constants 4 A> 4 B> Y A and ¥3 may be found from the speed 

distribution q(s) and the properties of a solution to the flow 
equations because of the following relations: 

1) 4 A + 4 B = r 

2) * A + * B = 0 

3) I =0 

dC ’5 = C 0 
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4 ) <J>(TAIL) - *(£ 0 ) - * M 

where is a constant which is determined by the data q(s). 

The solution to the canonical equations is found by the spectral 

method. $ and 'P are each represented as a linear combination of a 

complete set of special solutions to the homogeneous canonical 

equations whose coefficients are determined by solving a boundary value 

problem for 4 ’. The characteristic initial data for these special 

solutions is defined by the complete system of the Chebyshev 

polynomials in the ellipse and is imposed on an initial plane 5 = at 

some distance from and £g. On the second initial plane n = dq, 

where 5 C = n c> corresponding symmetric data will be given. If these 

(n) (n) 

special solutions are represented by $3 and ^3 » we express $3 and 

4 ^ as the convergent series of real functions 

(0) * (n) 

* 3 (e.n) = * 3 U.n) + l c n $ 3 ( 5 ,n) 

n«=1 

(0) * (n) 

v 3 (c.n) = ^3 U,n) + 1 C n 4-3 ( 5 ,n) 

n=1 

(o) (0) 

where $3 and 4 * satisfy the inhomogeneous equations for $3 and 4*3. 
On both the initial planes 5 = and n = nc we have 

(0) , s 

* 3 U,n) = 0 

On the plane 5 = the initial data for the homogeneous special 

solutions is given by 
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, (2n+l ) , (2n) =“ 

* 3 (5 c ,tO + i *3 (5 c ,n) - T n (5 c ) + T n (n) 

When all of the component functions have been determined, the real 

coefficients c n of a truncated expansion for ¥ 3 are found numerically 

by interpolating to satisfy the condition Re [¥(5,5)] 0 0 on the 

boundary of the ellipse. This matrix problem is well conditioned when 

equally spaced points are used on the circle in the z-plane 

corresponding to the ellipse boundary, using the relation between the 

ellipse and the annular ring given by 5 = A/z + A). 

2 z 

For an isolated airfoil ¥ is expressed as 

= O' x (5 ,n ) + i¥ A ) log(5 - K A ) + (¥ 2 (£,n) + «b> — — + * 3 (5 , 1 ) 

5 a 

and a similar expression holds for Characteristic initial value 

problems for the component functions are then determined as for a 
cascade. 

The initial data q(s) determine a relation q * q($) which can be 
used to find q (5 ) once ® (5 ) is known. We use this to determine the map 
from the (5 ,h )-plane to the (s,t)-plane. Since 

5- Co 

f (5 ) = log s - log ( ), 

k5 “ 5 0 

for subsonic flow we have 
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, K - K o , 

Re f(C) = log h(q ) - log | 1 

«-«o 

from which we can determine the coefficients a n of the Chebyshev 
expansion for f . 

We have determined the map function f from the solution in the 
ellipse and yet f is required in order to solve the canonical equations 
for $ and 4*. This is a nonlinear boundary value problem in which Re(f) 
and ReOF ) are prescribed simultaneously. By using the spectral method 
we have decomposed this into a coupled pair of problems for the map 
function f and the stream function 4* which can be solved by iteration. 
We first find the incompressible solution in the ellipse, which is 
independent of f. After f is determined using the fast Fourier 
transform, 4> and 4 1 are found in the ellipse as solutions of the 
canonical system with boundary condition Re(4') = 0. From this solution 
a new determination of f is made and the iteration is repeated. The 
process converges rapidly to an acceptable answer that defines a 
cascade of airfoils whose pressure distribution has been prescribed. 
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3.3 The transonic case 


When the Mach number of the flow exceeds one locally, > 1, the 
corresponding points in the hodograph plane no longer map into the real 
plane of symmetry £ = n in the complex domain. The map function f will 
map the subsonic flow region into a portion of the ellipse in the plane 
€ = h that is bounded by the sonic line = 1. in the remainder of the 
ellipse q and 0 are complex, and the real supersonic flow region is a 
surface extending into complex (5 ,ri )-space. Our procedure in this case 
is. to solve a singular boundary value problem in the ellipse and then 
locate the real supersonic arc of the profile ReO?) = 0 afterwards by 
tracing real characteristics. 

In order to solve the boundary value problem for the stream 
function 'F , we prescribe an artificial boundary condition on the 
portion of the ellipse beyond the sonic surface = l. Along the part 
of the ellipse boundary corresponding to real subsonic flow, we still 
impose the condition Re('F) = 0. On the rest of the boundary we let 

Re (C X ) } + K 3 i m ^(i- J>} = 0 

where the constant K 3 is determined empirically. A similar boundary 
value problem for the Tricomi equation has been shown to be well posed 
by Jose Sanz [21]. Moreover, empirical data on the condition number of 
the matrix of linear equations determining the coefficients c n of the 
Chebyshev expansion for 'f indicate that this boundary value problem is 


well posed. 
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Fur the r difficulties involve the determination of the regio- ■'n 
the complex domain corresponding to the real supersonic zone and the 
solution of the flow equations there. The real characteristics in the 
supersonic zone cannot be determined by crossing the sonic line 
directly because the canonical equations fail when « 1, However, 
since the locus of points = 1 is a two-dimensional surface in the 
four-dimensional complex domain, it is possible to reach these 
characteristics by deforming the paths of integration appropriately. 
These paths are constructed to circumvent the sonic surface = 1 
while staying on the proper branch of /l-M 2 . They have been described 
in detail elsewhere [25], Once the canonical equations have been 
solved along the real characteristics, the supersonic portion of the 
profile is determined by locating the points where Re(T )=0. 

Finally, a method must be devised for determining the map function 
from (£ ,n ) -space to (s,t)-space. This will still be based upon the 
data for q given along the airfoil in the real physical plane. We 
compute the values of 


Re(f ) - 1 1* id dq - log I — -— | 

q *-«o 

on the subsonic arc of the ellipse as before. Elsewhere on the ellipse 
boundary we assign to Re(f) the value 


Re(f) = log h(c*) + {k x [J |/l-M 2 | log |-^ 5 0 


c* 


kC- £ 


0 
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where the constants Kj and K 2 are again determined empirically. The 
resulting solutions of the canonical partial differential equations 
define a shockless airfoil whose pressure distribution may not match 
the prescribed data for q along the supersonir 3rc of the profile. 
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3.4 Numerical procedures 

We turn now to the numerical procedures we shall use to find a 
solution to our problem. In Section 3.2, the functions $ and Y were 
expressed as a series of solutions to particular characteristic initial 
value problems. In order to solve these in the complex domain we must 
construct paths of integration in the £ -plane and the n -plane. We 
place mesh points 5 j on a path lying in the £ -plane and determine mesh 
points on a corresponding path in the n -plane. These paths will lie 
in complex (£ ,n )-space in the appropriate initial planes, which are 
determined below. On the resulting grid of points we apply a 

finite difference approximation to the canonical system of differential 
equations for 4> and T . 

The characteristic initial value problems formulated in Section 
3.2 for the pair of functions and ¥ j require initial data on the 
planes £ = £ A and n = n A . To determine *2 anc * ^ 2» we re H u i- re data on 
the planes £ = £g and n = rig. Here anc * ^B» n B^ are tlle points 

in the plane £ = n corresponding to the exit and inlet velocities, 
respectively. For the remaining series of canonical equations, initial 
data must be imposed on a plane £^ and on a similar plane Hq. These 
must be located at some distance from £ A and £g since the inhomogeneous 
equations for $ 3 and T 3 are singular at these points. We shall choose 
these initial planes such that £q = 

Figure 2 shows the ellipse in the £ -plane with the points £ A , £g 

and £ ( .. Initial paths are represented there, as is the sonic locus, 
which is the set of points in the £ -plane corresponding to the sonic 
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line in the plane £ = h. The figure is also a representation of the n 
plane, so that the conjugate of the initial paths in the n -plane are 
shown. 

In the £ -plane the paths begin at the point £ A and pass through £ B 
and £c so that all initial planes are represented in the resulting 
grid. To solve the boundary value problem for the canonical system in 
the ellipse, we construct a series of paths there, each of which 
terminate on an arc of the ellipse boundary. These paths must be 
constructed to circumvent the sonic surface M^(£ ,n )=1, since the 
characteristic equations fail there. Expressing this surface as the 
locus of points 


{ (£ ,n ): n = g(£ ), g an analytic function }, 

we note that £~ = g(£ ) on the sonic locus in the £ -plane. Hence for 
nearby points on the sonic surface, n is the reflection of £ across 
that locus. Points on paths in the £ and n -planes resulting in a point 
on the sonic surface are depicted in Figure 3. In general, the presence 
of points on the sonic surface will appear in the ellipse as a pair of 
reflected points on initial paths in the £ -plane and the n -plane. 

We shall distinguish between 3 types of paths: subsonic, transonic 
and supersonic. Subsonic paths lie entirely in the portion of the 
ellipse corresponding to the subsonic flow region. Transonic paths 
cross the sonic locus into the region of the ellipse which does not 
represent a real flow. Both of these types of paths terminate along a 
portion of the ellipse boundary. The solutions on the boundary are 
used to obtain a series representation for the flow and to determine 
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the map function from (C ,n )-space to (s,t)-space. The supersonic paths 
determine the solution along characteristics in the real supersonic 
flow region. 

In the subsonic case, the paths in the £ -plane and the n -plane are 
chosen to be conjugate, so that • Since Figure 2 represents 
both the 5 -plane and the n -plane, these are represented there by a 
single path. Let us prescribe symmetric data on the conjugate 
characteristic initial planes. Then by the theorem of Section 2.3, the 
resulting solution is a real function, so that the solution at the 
diagonal points Is real. Moreover, the solution at a point 
(£j,Tik) above the diagonal is the conjugate of the solution at the 
point (5 k ,rij) below the diagonal. This halves the number of 
computations which are required. The computational grid for subsonic 
paths is shown in Figure 4. 

Transonic paths are required when the arc of the ellipse to be 
covered contains points beyond the sonic line, which will not lie in 
the real flow region. In this situation, conjugate paths like those 
used in the subsonic flow region would result in grid points on the 
sonic surface = l. Moreover, symmetric data on conjugate initial 
paths will no longer result in solutions which are real functions 
throughout the computational grid, since the coefficient t is not a 
real function across the sonic line. Therefore, points on the grid 
above the diagonal would be computed even for conjugate paths. Hence 
we construct a pair of paths in the £ -plane and the n -plane that 
terminate on the ellipse boundary but are not conjugates of one 
another. These transonic paths each consist of two arcs, together with 
a portion of the ellipse boundary. The arcs are constructed to prevent 
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the appearance of the reflected points described above, which would 
give rise to points on the sonic surface. In addition, the paths in 
the £ -plane and the q-plane traverse the ellipse in opposite directions 
in order to avoid the sonic surface. Points on the boundary of the 
ellipse in the plane £ = n lie in the resulting grid, as shown in 
Figure 5. As the transonic paths wind around the sonic locus, the value 
of / adjusted to remain on the correct branch of the solution. 
Thus valid flows result even in marginal cases. 

The real supersonic zone must be found by constructing paths for 
which the resulting grid twists around the two-dimensional sonic 
surface * 1 to reach points in the real supersonic flow region. 
These points turn out to be of the form (5j,h k ) where both (Sj>5j) and 
(h k ,n k ) lie on the sonic line. This is to be expected since a real 
supersonic characteristic will contain a point on the sonic line, at 
which the characteristic will cusp. Therefore the initial paths are 
chosen so that both the £ -characteristics and the n -characteristics of 
the resulting computational grid intersect the sonic line and a 
triangle of real supersonic points is obtained, as shown in Figure 6. 
The solution cannot be determined at points on the grid beyond the 
sonic line due to the singularity of the characteristic equations 
there. Hence the paths cover the sonic loci in opposite directions so 
that the real supersonic zone is encountered before reaching the sonic 
line. Since the characteristic transformation is multivalued, the 
manner in which the grid wraps around the sonic locus determines the 
branch of the solution. A correct branch yielding the solution in the 
real supersonic zone has been found empirically by careful choice of 
the supersonic paths of integration [4,24], as depicted in Figure 2. 
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The finite difference equations have the characteristic form 


* * _ T j,k + T j-l,k 

* j.k " * j-l,k = 




<6 * _ T j> k + T r® _ v 1 

j.k - 4 j,k-l - " 2 ^ J.k 7 * j,k-lJ 


and are second order accurate away from the sonic surface, where they 
become singular. The coefficients t are determined from the values of 
u and v, which can be found using the conformal map from (£ ,ti )-space to 
(s,t)-space. In practice, however, it is more convenient to solve the 
characteristic equations 


X j,k + X j-l,k r 

v j,k - v j-l,k = 2 [u j.k " u j-l,k] 

X j ,k + X j,k-l r 

v j,k - v j,k-l 2 [u j.k - u j ,k-l J 

where 


x ± = U y ± ✓ c 2 (q 2 ~ c 2 ) 

q2 _ v 2 

\ 

These may by solved by the predictor corrector difference method of 
Massau [8] which has been discussed elsewhere [?]. A third order 
accurate method may also be used which performs the calculations with 
two different grid sizes and uses Richardson extrapolation. 
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3.5 Determination of the profile 


The solutions $> and ¥ of the canonical equations may be 
substituted into the formula 

„ . j dt * 1£ /p 

qe-« 


to calculate the shape of the profile 'i = 0. For subsonic and transonic 
paths this integration is performed on paths in the computational grid 
terminating on the boundary of the ellipse (Figures 4 5). In the real 
supersonic zone x and y are also calculated along real supersonic 
characteristics (Figure 6). These can then be plotted to obtain 
information about the behavior of the flow. Cusping of the 
characteristics indicates the presence of a limiting line, which 
corresponds to the appearance of a shock wave. In order for a smooth 
profile to result, care must be taken to stay on the right branch of 
the logarithms which occur in the singular solutions. 

This profile is a streamline for inviscid flow, however, while we 
wish to obtain a model for viscous flow past a blade section. Due to 
viscous effects, physical flows will contain a boundary layer at the 
surface of the profile. The thickness of this layer will be greater on 
the upper than the lower surface, which will reduce the angle of attack, 
and cause a loss of circulation. Flow on the upper surface of the 
airfoil is therefore retarded, so that the supersonic zone diminishes 
and shockless flow may not occur. Moreover, if the boundary layer 
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separates before the last few percent of chord, a large wake results 
and the shockless regime is lost. 

To overcome these difficulties, we use a boundary layer correction 
to modify the profile and estimate the point at which separation may be 
predicted. The profile is obtained by subtracting from the blade which 
generates the inviscid solution along the streamline V = 0 a 
displacement thickness 6* determined by the method of Nash and McDonald 
[16]. This is based on numerical integration of the von Karman 
momentum equation 


d6* 

“3T 


+ (2 + H - M 2 ) 


dq 9* r 

^ T ‘^2 


where 0* is the momentum thickness, H = — , t is the skin friction, and 

0 * 

s is the arc length, m 2 and q are given by the inviscid solution and H 

and t are determined by semi -empirical formulas. Integration is 

initiated at transition points (x R ,y R ) which are prescribed for the 

upper and lower surfaces of the profile. The displacement of the 

laminar boundary layer before transition is small and can be neglected. 

— 0 * da 

Separation is predicted when the Nash-MacDonald parameter SEP = __L 

q ds 

exceeds 0.04. Usually the input speed distribution is chosen so that 
SEP is near 0.03 near the trailing edge of the upper surface. 
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IV. COMPUTATIONAL RESULTS 


4. 1 Comparison with the Korn code 

In this chapter we present the results of runs obtained with the 
new version of the design code. We will also discuss the effect of a 
low gap-to-chord ratio on the flow and on the geometry of the resulting 
cascade. 

We first present a cascade designed with the new code and a 

similar case obtained with the previous code [4], Both result from 3 

iterations NI of the map function and 128 functions in the series 

0 

representing $ and T . The turning angle of the flows is 45 and the 
inlet and exit Mach numbers are .77 and .44, respectively. The 
gap-to-chord ratio obtained in both of these cases is .81. In the run 
with the new code, the ellipse parameter EP is set to .6. The other 
input parameters, including the speed distribution of Figure 7, are 
identical in the two runs except for the location of the singularities 
and Because of the difference in the conformal mappings used by 

the two codes, a change in the position of the these singularities was 
required in order to obtain a similar design from both runs. 

In Figure 11 the difficulties of the old code are illustrated. 
Here the singularities ? A and are at the edge of the unit circle and 
can be moved no further, so that this gap-to-chord ratio represents the 
limits of the old code. Moreover, it can be seen from the resulting 
blade in Figure 12, which is plotted without interpolating between data 
points, that the effect of having the singularities so close to the 
boundary in the unit circle is poor resolution near the stagnation 
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point and at the tail. These difficulties have been corrected in the 
new code. In Figure 9 we see that the use of an ellipse of medium 
eccentricity allows us to obtain the desired gap-to-chord ratio easily. 
By moving the stagnation point counterclockwise along the boundary of 
the ellipse, we have been able to keep XIA and XIB near the foci, which 
decreases the distance between the blades and improves the geometry of 
the paths relative to the sonic surface. 

A compressor designed with an earlier version of the previous code 
has been tested in a cascade wind tunnel with successful results. 
Moreover, close agreement has been found between the results of the 
design code and the N.Y.U. analysis code, the latter of which has been 
favorably compared with experimental results in a number of cases. The 
agreement between the new and old design codes allows us to refer to 
these tests to conclude that the new code effectively designs 
physically reasonable shockless airfoils. 
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4. 2 Two new compressors 


We next present a cascase of stator airfoils having a low 
gap-to-chord ratio which was designed with the new version of the code. 
This case was obtained with two cycles of the map function and 32 
Chebyshev coefficients. The inlet and exit Mach numbers for the flow 
are 0.78 and 0.45, the turning angle is 47° , and the peak value of the 
Mach number on the upper surface is 1.2. The gap-to-chord ratio of 
0.42 was achieved by using a ratio of minor to major axes of 0.25, and 
placing the singularities C A and £3 near the foci and at a substantial 
distance from one another, as shown in Figure 14. The distance between 
the upper and lower pressure distributions, as shown in Figure 13, 
decreases with the gap-to-chord ratio so that this cascade has less 
lift than the preceding example. 

The distribution of points around the ellipse in Figure 13 shows 
acceptable resolution of the profile at the stagnation point and the 
tail. This results from a property of the mapping which also makes the 
solution highly sensitive to small changes in the location of 
parameters in the ellipse. A slight modification in the placement of 

or moving Co by a single mesh point, has a great effect on the 
position of the sonic line, which rotates along the ellipse boundary in 
the same direction as £q. In Figure 14 it can be seen that for a 
highly eccentric ellipse the sonic locus extends into the interior of 
the ellipse so that the transonic and supersonic paths must be placed 
at some distance from this curve in order to avoid points on the sonic 
surface = 1 . 
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As our final example we have a cascade for which the flow is 
supersonic on both th_ up er and lower surfaces. As shown in Figure 
16, the speed distributions along the upper and lower surfaces of the 
blades are similar and remain relatively high at the rear of the blades 
in order to obtain a realistic trailing edge. This case was obtained 
with two iterations of the map function and 32 Chebyshev coefficients. 
The ratio of minor to major axes in the ellipse is 0.3, and the 
gap-to-chord ratio is 0.54. The inlet and exit Mach numbers for this 
case are .72 and .53. Because supersonic arcs of the profile are 
straight lines, a profile with substantial supersonic zones will have 
less camber, so that the turning angle of the resulting flow is only 
22 °. 


Figure 3 shows the hodograph plane with a pair of sonic loci 
representing the two sonic surfaces. In this case it was more 
difficult to construct paths which avoid the sonic surface. This 
reflects the fact that in the physical flow, choking will occur if the 
two supersonic regions come too close to one another, so that smooth 
flows will not be possible. The extent of the difficulty is reflected 
in the fact that slight modifications of parameters in the ellipse from 
those which are used here caused a point on the line joining 5^ an d £ g 
to generate a point on the sonic surface. Hence the limitations of the 
present code do not arise from inadequate resolution or the proximity 
of the singularities to the boundary, but from the increased 
interaction between points on the sonic surface and points required in 
order to obtain a solution. 
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4.3 Input files for additional cases 

In this section we oresent input files for an isolated airfoil and 
a turbine cascadewith accompanying graphics 19-23 in Chapter VI. The 
airfoil shown in Figure 19 was designed by Jose Sanz and is a 
modification of the original supercritical wing section developed 
empirically by Whitcomb. Tape 3, the input speed distribution, is 
presented, as well as the additional input parameters contained in Tape 
7. Graphical output include the input and output pressure distributions 
along the blade (Figure 19), and the plot of the ellipse (Figure 20). 
In this case we have used an ellipse of lower eccentricity, as the 
difficulties encountered designing cascades of airfoils do not arise. 

Turbines in transonic flow will generally be expected to have 
supersonic exit speeds, while in our design code the exit velocity is 
constrained to be subsonic. Nonetheless, we present a case designed by 
Jose Sanz which is useful as a first approximation. The speed 
distribution typical of a turbine is presented in Figure 21, and the 
paths of integration are shown in Figure 22. The resulting cascade of 
Figure 23 has a larger turning angle and greater supersonic zone than 
the previous turbines developed with our method. The input files which 
generate these cases are presented on the following pages. 
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WHITCOMB WING SECTION 
INPUT SPEED DISTRIBUTION 


CARD 

S- INPUT 

S-USED 

Q- INPUT 

1 

.011174 

0.000000 

-.838000 

2 

.098920 

.087217 

- .765226 

3 

.246873 

.234278 

-.859370 

4 

.390006 

.376549 

-1.054257 

5 

.535817 

.521481 

-1.128083 

6 

. 730869 

.715358 

-1.137690 

7 

.876067 

.859681 

-1.141049 

8. 

.915000 

.898379 

-1.142000 

9 

.950000 

.933168 

-1.130000 

10 

.986233 

.969183 

-.983997 

11 

1.002148 

.985002 

-.777272 

12 

1.016000 

.998770 

-.280000 

13 

1.027870 

1.010569 

.341939 

14 

1.047740 

1.030319 

1.130473 

15 

1.063555 

1.046039 

1.365332 

16 

1.090000 

1.072324 

1.468000 

17 

1.130000 

1.112083 

1.475000 

18 

1.170427 

1.152267 

1.467623 

19 

1.220562 

1.202100 

1.459237 

20 

1.315641 

1.296606 

1.447927 

21 

1.460661 

1.440751 

1.433724 

22 

1.750807 

1.729149 

1.194273 

23 

1.894000 

1.871479 

.972500 

24 

2.023300 

2.000000 

.838000 




FLOW PARAMETERS 



RUN - 

-15 

t 


IPLT - 

82 

NI - 

3 

» 


NP - 

8 

NFC - 

32 



NCAS - 

2 

NPTS - 

201 

> 


NOSE - 

0 

MACH - 

.765 

1 


RN - 

. 80E+07 

EP - 

o 

00 

> 


GAMMA - 

1.40 

RATC - 

.60 

) 


CONE - 

.50 

CTWO - 

1.00 

) 


CTHR - 

1.00 

TRANU - 

.28 

> 


TRANL - 

00 

CM 

GRID - 

.12 

1 


MRP - 

-2 

.100 , 

-.150 

) 

XIB 

- . 100 , 

-.150 


XIC - -.050 , -.200 
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INPUT SPEED FOR TURBINE CASE 


CARD 

S- INPUT 

S-USED 

Q- INPUT 


1 

.208000 

0.000000 

-.836500 


2 

.360000 

.132002 

-.584200 


3 

.630439 

.366860 

-.285000 


4 

.850000 

.557534 

-.172500 


5 

1.002470 

.689944 

- . 160000 


6 

1.048000 

.729484 

-.157500 


7 

1.083000 

.759879 

-.136250 


8 

1.114033 

.786829 

-.081455 


9 

1.146000 

.814590 

.037500 


10 

1.178000 

.842380 

.264000 


11 

1.210000 

.870170 

.576000 


12 

1.290000 

.939644 

.980000 


13 

1.421000 

1.053409 

1.208000 


14 

1.551000 

1.166305 

1.352500 

— 

15 

1.660000 

1.260965 

1.465000 


16 

1.740000 

1.330439 

1.530000 


17 

1.850000 

1.425967 

1.560000 


18 

1.970930 

1.530986 

1.450000 


19 

2.150384 

1.686830 

1.147500 


20 

2.310262 

1.825673 

.970000 


21 

2.510999 

2 . 000000 

.836500 






FLOW PARAMETERS 


RUN 

as 

-273 


IPLT - 

12 

NI 

- 

1 


NP - 

8 

NFC 

- 

64 


NCAS - 

3 

NPTS 

- 

201 


NOSE - 

10 

MACH 

- 

.755 


RN - 

. 10E+07 

EP 

- 

.60 


GAMMA - 

1.40 

RATC 

- 

.60 


CONE - 

.50 

CTWO 

- 

1.00 


CTHR - 

1.00 

TRANU 

- 

.30 


TRANL - 

.50 

GRID 

■= 

.10 


MRP - 

-1 

1.000 

I 

.020 


XI B —1.080 , 

.200 


XIC —1.110 , 


.140 
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4.4 Sample run of the code 

In this section we present the printed output of a sample run of 
the code. The acoompanying graphics appear as Figures 7-10. The first 
page of printed output consists of the input speed distribution from 
TAPE3. On the second page are found the input parameters entered on 
TAPE7, follwed by the inlet and exit Mach numbers, the residual 
difference in the value of the potential function computed at each 
cycle, and the values of DX and DY after each iteration. The next page 
lists the points close to the sonic surface which have been encountered 
on the computational grids. The sign of the stream function along the 
real characteristics is then shown, so that the supersonic arc of the 
profile may be determined as the curve where this function vanishes. 
From this plot the presence of limiting lines can be inferred. Finally 
the output data for the resulting cascade is printed, including the 
coordinates of the airfoil before and after the boundary layer 
correction and the corresponding Mach numbers. An explanation of the 
output parameters listed here is given in Section 7.2. 

The first plot comprises a plot of the input speed distribution 
(Figure 7). This is followed by a plot of the pressure (or Mach) 
distribution and the resulting blade section, which may be plotted with 
supersonic characteristics (Figure 8). There follows a plot of the 
complex hodograph plane (Figure 9), and finally, a plot of the isolated 
airfoil or of NCAS airfoils in cascade (Figure 10). Variations in the 
types of plotted output depend on the value of IPLT, the plot control 
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parameter. These options are described in Section 7.1 
value of IPLT disables the graphics. 


A negative 
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BEGIN EXECUTION OF DESIGN RUN -44 


TAPE3-INPUT 


CARD 

S- INPUT 

S-USED 

Q- INPUT 

1 

.010600 

0.000000 

-.691000 

2 

.176500 

.157488 

- .608992 

3 

.504488 

.468846 

-.562715 

4 

.751306 

.703150 

-.720804 

5 

.820327 

.768671 

- .788132 

6 

.907617 

.851535 

-.876813 

7 

.936237 

.878703 

- .905578 

8 

.964321 

.905363 

-.922484 

9 

.985000 

.924994 

- .925500 

10 

1.002000 

.941132 

- .890000 

11 

1.010010 

.948736 

-.804954 

12 

1.017042 

.955411 

-.595487 

13 

1.026123 

.964031 

0.000000 

14 

1.034320 

.971813 

.572142 

15 

1.041325 

.978463 

.996473 

16 

1.052891 

.989443 

1.280000 

17 

1.069407 

1.005121 

1.560000 

18 

1.079932 

1.015113 

1.620000 

19 

1.090457 

1.025104 

1.650000 

20 

1.115771 

1.049134 

1.680000 

21 

1.141084 

1.073164 

1.695000 

22 

1.166397 

1.097193 

1.700000 

23 

1.191710 

1.121223 

1.700000 

24 

1.256062 

1.182312 

1.700000 

25 

1.303599 

1.227439 

1.700000 

26 

1.352135 

1.273514 

1.691000 

27 

1.396689 

1.315809 

1.670000 

28 

1.441242 

1.358102 

1.620000 

29 

1.517326 

1.430329 

1.405000 

30 

1.593410 

1.502555 

1.210000 

31 

1.669493 

1.574781 

.. 1.050000 

32 

1.786404 

1.685763 

.900000 

33 

1.902314 

1.795796 

.785000 

34 

2.117425 

2 . 000000 

.691000 
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SUBSONIC CASCADE DESIGN RUN 44 86/06/12 

TAPE7-INPUT 



RUN ■= -44 


l 

IPLT - 

74 


NI - 3 


» 

NP - 

8 


NFC - 64 


l 

NCAS - 

2 


NPTS - 251 


» 

NOSE - 

12 


MACH - . 645 


» 

RN - 

. 10E+07 


EP - .60 


) 

GAMMA - 

1.40 


RATC - 0.00 



CONE - 

.30 


C TWO «= .50 


l 

CTHR - 

1.00 


TRANU - .35 


» 

TRANL - 

.15 


GRID - .10 


» 

MRP - 

1 

XIA - 

1.080 , 0.000 


; XIB 

— 1.060 , 

.015 


XIC —1.100 

, .016 



CYCLE 

MINLET 

MEXIT 

RESIDUAL 

DX 

DY 

1 

.748 

.418 

. 190E+00 

.12072 

.07484 

2 

.764 

.430 

. 752E-01 

.03061 

.04154 

3 

.763 

.435 

. 256E-01 

-.00721 

.04121 

LONGEST SUBSONIC 

PATH HAS 

79 POINTS 




SUBSONIC CP TIME IS 1221.3 SECONDS 


LONGEST SUPERSONIC PATH HAS 121 POINTS 


SUPERSONIC CP TIME IS 40.1 SECONDS 
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LISTING OF POINTS ENCOUNTERED NEAR THE SONIC SURFACE 


MODE 

XI 


ETA 


ROOTOLD 

• 

ROOT 


3 

-.884 

- .530 

-.884 

.530 

.072 

.180 

.030 

.149 

3 

- .478 

- .693 

- .478 

.693 

.060 

.197 

.017 

.179 

3 

- .304 

- .728 

-.304 

.728 

.093 

.172 

.061 

.121 

-1 

- 1.175 

.255 

- 1.175 

- .255 

.207 

.033 

.185 

.038 

-1 

- 1.199 

.040 

- 1.199 

-.040 

.246 

.003 

.192 

- .009 

-1 

- 1.195 

.007 

- 1.195 

-.007 

.236 

.001 

.185 

- .007 

-1 

- 1.188 

- .025 

- 1.188 

.025 

.227 

.000 

.178 

- .003 

-1 

- 1.179 

- .056 

- 1.179 

.056 

.220 

.002 

.172 

.000 

-1 

- 1.168 

- .087 

- 1.168 

.087 

.213 

.004 

.165 

.003 

-1 

- 1.155 

-.117 

- 1.155 

.117 

.208 

.006 

.160 

.006 

-1 

- 1.141 

- .146 

- 1.141 

.146 

.204 

.007 

.156 

.007 

-1 

- 1.124 

-.175 

- 1.124 

.175 

.201 

.007 

.152 

.008 

-1 

- 1.105 

-.204 

- 1.105 

.204 

.199 

.007 

.150 

.009 

-1 

- 1.083 

-.233 

- 1.083 

.233 

.198 

.007 

.148 

.008 

-1 

- 1.060 

-.261 

- 1.060 

.261 

.197 

.007 

.147 

.008 

-1 

- 1.034 

- .289 

- 1.034 

.289 

.197 

.006 

.146 

.007 

-1 

- 1.006 

- .316 

- 1.006 

.316 

.197 

.006 

.146 

.006 

-1 

-.976 

- .344 

-.976 

.344 

.197 

.005 

.146 

.004 

-1 

- .943 

-.371 

- .943 

.371 

.198 

.004 

.147 

.003 

-1 

- .909 

-.397 

-.909 

.397 

.199 

.004 

.147 

.002 

-1 

-.872 

- .423 

-.872 

.423 

.200 

.003 

.148 

.001 

-1 

- .833 

- .449 

-.833 

.449 

.202 

.003 

.149 

.000 

-1 

- .792 

-.474 

-.792 

.474 

.203 

.002 

.150 

-.001 

-1 

- .749 

- .499 

-.749 

.499 

.205 

.002 

.151 

- .001 

-1 

-.704 

-.523 

-.704 

.523 

.207 

.002 

.153 

- .002 

-1 

-.657 

- .547 

-.657 

.547 

.209 

.001 

.154 

- .002 

-1 

- .609 

-.571 

-.609 

.571 

.211 

.001 

.156 

- .003 

-1 

- .560 

-.595 

-.560 

.595 

.214 

.001 

.157 

- .003 

-1 

-.509 

- .620 

-.509 

.620 

.216 

.001 

.159 

- .003 

-1 

-.456 

- .645 

-.456 

.645 

.218 

.002 

.158 

- .003 

-1 

-.404 

-.672 

-.404 

.672 

.218 

.003 

.158 

- .000 

-1 

-.353 

- ■'00 

-.353 

.700 

.214 

.003 

.154 

.000 

-1 

- .304 

- .727 

-.304 

.727 

.144 

.055 

.114 

.041 
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POSITIVE AND NEGATIVE VALUES OF STREAM FUNCTION AT SUPERSONIC POINTS 
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THICKNESS/CHORD- .1348 
COEFFICIENT OF LIFT-1.3386 
DIFFUSION FACTOR- .680 
GAP/CHORD- .810 

INLET MACH NUMBER- .763 INLET FLOW ANGLE- 42.10 

EXIT MACH NUMBER- .435 EXIT FLOW ANGLE- 87.22 

TURNING ANGLE- 45.12 
DX— .0077 DY- .0438 


COORDINATES FROM LOWER SURFACE TAIL TO UPPER SURFACE TAIL 


X 

Y 

ANG 

K 

M 

THETA 


SEP 

XS 

YS 

9558 

.2916 

.9 

2.64 

.4356 

.00216 

_ 

.00220 

.9558 

.2944 

9554 

.2916 

.9 

.98 

.4354 

.00216 

- 

.00220 

.9554 

.2944 

9498 

.2915 

.6 

.46 

.4328 

.00219 

- 

.00210 

.9498 

.2943 

9377 

.2914 

.2 

.22 

.4281 

.00223 

- 

.00185 

.9377 

.2943 

9202 

.2914 

.0 

.05 

.4218 

.00229 

- 

.00182 

.9202 

.2944 

8986 

.2914 

- .0 

-.08 

.4145 

.00236 

- 

.00181 

.8986 

.2945 

8743 

.2914 

.1 

-.20 

.4065 

.00244 

- 

.00182 

.8743 

.2946 

8479 

.2913 

.4 

-.30 

.3983 

.00253 

- 

.00183 

.8479 

.2946 

8203 

.2910 

.8 

-.40 

.3902 

.00262 

- 

.00183 

.8203 

.2944 

7918 

.2904 

1.5 

-.50 

.3823 

.00272 

- 

.00182 

.7917 

.2939 

7627 

.2894 

2.3 

- .61 

.3747 

.00282 

- 

.00179 

.7625 

.2931 

7331 

.2880 

3.4 

-.71 

.3677 

.00292 

- 

.00171 

.7329 

.2917 

7033 

.2859 

4.6 

-.81 

.3613 

.00301 

- 

.00157 

.7030 

.2898 

6732 

.2831 

6.0 

-.89 

.3558 

.00309 

- 

.00136 

.6728 

.2871 

6427 

.2789 

7.6 

-.98 

.3514 

.00314 

- 

.00110 

.6422 

.2831 

6126 

.2745 

9.3 -1.06 

.3480 

.00317 

- 

.00078 

.6119 

.2787 

5827 

.2691 

11.1 -1.11 

.3460 

.00317 

- 

.00039 

.5819 

.2734 

5531 

.2628 

13.0 -1.16 

.3454 

.00313 


.00005 

.5520 

.2671 

5239 

.2555 

15.0 -1.18 

.3463 

.00306 


.00050 

.5228 

.2599 

4954 

.2473 

17.0 -1.18 

.3488 

.00294 


.00095 

.4940 

.2516 

4677 

.2382 

19.0 -1.15 

.3530 

.00278 


.00135 

.4662 

.2424 

4407 

.2284 

20.9 -1.10 

.3588 

.00259 


.00168 

.4392 

.2325 

4149 

.2181 

22.7 -1.03 

.3660 

.00239 


.00188 

.4134 

.2218 

3900 

.2073 

24.3 

-.96 

.3745 

.00217 


.00199 

.3885 

.2107 

3663 

.1963 

25.7 

-.87 

.3839 

.00196 


.00200 

.3648 

.1993 

3435 

.1850 

27.0 

-.79 

.3943 

.00175 


.00195 

.3422 

.1877 

3219 

.1737 

28.1 

-.71 

.4053 

.00156 


.00185 

.3206 

.1761 

3011 

.1624 

29.0 

-.63 

.4168 

.00139 


.00172 

.3000 

.1645 

2814 

.1513 

29.9 

- .54 

.4287 

.00123 


.00158 

.2803 

.1531 

2624 

. 1402 

30.5 

-.48 

.4408 

.00108 


.00145 

.2615 

.1418 

2449 

.1297 

31.1 

-.39 

.4531 

.00095 


.00131 

.2440 

.1310 

2277 

.1192 

31.5 

-.31 

.4654 

.00084 


.00115 

.2269 

.1204 
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X 

Y 

ANG 

K 

.2112 

.1090 

31.9 

- .23 

.1954 

.0992 

32.1 

- .16 

.1804 

.0897 

32.3 

-.09 

.1659 

.0805 

32.4 

-.03 

.1521 

.0717 

32.4 

.04 

.1387 

.0633 

32.4 

.12 

. 126 - 1 - 

— r 0553 — 

— 32 . 3 _ 

— T 24 - 

.1138 

.0476 

32.1 

.41 

.1023 

.0404 

31.7 

.64 

.0911 

.0336 

31.3 

.92 

.0806 

.0273 

30.6 

1.19 

.0705 

.0213 

29.8 

1.57 

.0610 

.0160 

28.8 

1.98 

.0515 

.0110 

27.6 

2.97 

.0434 

.0062 

26.0 

4.88 

.0358 

.0025 

23.6 

8.07 

.0286 

-.0003 

20.1 

13.06 

.0218 

-.0024 

14.8 

22.64 

.0155 

-.0037 

6.5 

38.63 

.0098 

- .0037 

- 6.2 

48.28 

.0043 

- .0024 

- 21.9 

59.53 

.0018 

.0050 

- 55.1 

47.01 

.0040 

.0106 

- 71.4 

37.48 

.0049 

.0184 

- 88.3 

25.25 

.0057 

.0269 

- 100.7 

16.77 

.0024 

.0440 

- 117.5 

6.97 

.0047 

.0561 

- 123.1 

3.55 

.0140 

.0695 

- 126.4 

1.93 

.0267 

.0860 

- 128.7 

1.40 

.0414 

.1038 

- 130.6 

1.15 

.0581 

.1226 

- 132.2 

1.03 

.0761 

.1419 

- 133.8 

1.01 

.0941 

.1603 

- 135.3 

1.04 

.1110 

.1766 

- 136.7 

1.10 

.1259 

.1904 

- 138.0 

1.18 

.1390 

.2020 

- 139.1 

1.27 

.1504 

.2118 

- 140.2 

1.36 

.1607 

.2202 

- 141.3 

1.45 

.1701 

.2276 

- 142.3 

1.54 

.1788 

.2343 

- 143.2 

1.62 

.1871 

.2403 

- 144.2 

1.69 

.1949 

.2459 

- 145.1 

1.77 

.2025 

.2511 

- 146.1 

1.84 

.2099 

.2560 

- 147.0 

1.90 

.2171 

.2606 

- 147.9 

1.97 

.2241 

.2649 

- 148.8 

2.04 

.2310 

.2690 

- 149.8 

2.11 

.2378 

.2729 

- 150.7 

2.19 

.2444 

.2766 

- 151.7 

2.27 

.2508 

.2800 

- 152.6 

2.35 


M 

THETA 

SEP 

xs 

.4777 

.00073 

.00101 

.2106 

.4897 

.00064 

.00087 

.1949 

.5014 

.00056 

.00075 

.1799 

.5127 

.00048 

.00064 

.1654 

.5236 

.00041 

.00054 

.1517 

.5342 
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.5548 



.1138 

.5647 


- 

.1023 

.5738 



.0911 

.5817 



.0806 

.5876 



.0705 

.5919 



.0610 

.5946 



.0515 

.5962 



.0434 

.5952 



.0358 

.5869 



.0286 

.5620 



.0218 

.5090 



.0155 

.3962 



.0098 

.2177 



.0043 

.2317 



-.0018 

.4814 



-.0040 

.7156 



-.0049 

.8666 



-.0057 

1.1966 



- .0024 

1.2386 



.0047 

1.2407 



.0140 

1.2307 



.0267 

1.2213 



.0414 

1.2166 



.0581 

1.2165 



.0761 

1.2199 



.0941 

1.2245 



.1110 

1.2286 



.1259 

1.2314 



.1390 

1.2329 



.1504 

1.2332 



.1607 

1.2327 



.1701 

1.2314 



.1788 

1.2295 



.1871 

1.2271 



.1949 

1.2242 



.2025 

1.2208 



.2099 

1.2170 



.2171 

1.2128 



.2241 

1 . 2"81 



.2310 

1.2029 



.2378 

1.1967 



.2444 

1.1895 



.2508 


.1101 
.1001 
.0905 
.0812 
.0723 
.0633 
.0553 - 
.0476 
.0404 
.0336 
.0273 
.0213 
.0160 
.0110 
.0062 
.0025 

-.0003 

-.0024 

- .0037 

- .0037 

-.0024 

.0050 

.0106 

.0184 

.0269 

.0440 

.0561 

.0695 

.0860 

.1038 

.1226 

.1419 

.1603 

.1766 

.1904 

.2020 

.2118 

.2202 

.2276 

.2343 

.2403 

.2459 

.2511 

.2560 

.2606 

.2649 

.2690 

.2729 

.2766 

.2800 
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X 

Y 

ANG 

K 

M 

THETA 

SEP 

xs 

YS 

.2571 

.2832 

-153.6 

2.43 

1.1810 



.2571 

.2832 

.2633 

.2862 

-154.5 

2.55 

1.1709 



.2633 

.2862 

.2692 

.2889 

-155.5 

2.74 

1.1590 



.2692 

.2889 

.2748 

.2914 

-156.4 

3.00 

1.1453 



.2748 

.2914 

.2800 

.2937 

-157.4 

3.20 

1.1294 



.2800 

.2937 

.2849 

.2956 

-158.4 

3.11 

1.1094 



.2849 

.2956 

.2897 

.2975 

-159.3 

3.30 

1.0842 



.2897 

.2975 

.2943 

.2992 

-160.2 

2.04 

1.0527 



.2943 

.2992 

.3110 

.3045 

-162.3 

1.90 

.9557 


- 

.3110 

.3045 

.3234 

.3087 

-163.7 

1.82 

.9268 



.3234 

.3087 

.3363 

.3123 

-165.1 

1.64 

.8976 

TRANSITION 

.3363 

.3123 

.3504 

.3159 

-166.5 

1.61 

.8700 



.3504 

.3159 

.3645 

.3191 

-167.8 

1.51 

.8436 

.00032 

.00064 

.3646 

.3185 

.3791 

.3221 

-169.1 

1.46 

.8181 

.00038 

.00075 

.3793 

.3214 

.3940 

.3248 

-170.4 

1.35 

.7930 

.00045 

.00088 

.3941 

.3240 

.4093 

.3272 

-171.6 

1.24 

.7683 

.00052 

.00103 

.4094 

.3263 

.4249 

.3294 

-172.7 

1.10 

.7439 

.00060 

.00117 

.4251 

.3283 

.4410 

.3313 

-173.7 

.96 

.7203 

.00069 

.00130 

.4412 

.3301 

.4575 

.3330 

-174.6 

.83 

.6979 

.00079 

.00141 

.4576 

.3316 

.4744 

.3345 

-175.4 

.72 

.6771 

.00089 

.00148 

.4745 

.3329 

.4916 

.3358 

-176.1 

.65 

.6581 

.00100 

.00153 

.4917 

.3340 

.5092 

.3368 

-176.8 

.61 

.6409 

.00111 

.00156 

.5093 

.3349 

.5271 

.3378 

-177.4 

.58 

.6252 . 

.00123 

.00160 

.5272 

.3356 

.5454 

.3385 

-178.0 

.57 

.6106 

.00135 

.00165 

.5455 

.3361 

.5641 

.3390 

-178.6 

.54 

.5968 

.00148 

.00173 

.5641 

.3364 

.5836 

.3396 

-179.2 

.54 

.5834 

.00162 

.00187 

.5836 

.3367 

.6028 

.3398 

-179.8 

.49 

.5701 

.00177 

.00209 

.6028 

.3365 

.6225 

.3397 

-180.4 

.43 

.5567 

.00194 

.00232 

.6225 

.3361 

.6425 

.3395 

-180.9 

.34 

.5432 

.00212 

.00256 

.6425 

.3354 

.6630 

.3391 

-181.3 

.25 

.5299 

.00233 

.00278 

.6629 

.3346 

.6840 

.3386 

-181.6 

.15 

.5169 

.00256 

.00297 

.6838 

.3335 

.7054 

.3380 

-181.7 

.05 

.5044 

.00282 

.00311 

.7053 

.3322 

.7273 

.3373 

-181.8 

-.04 

.4926 

.00308 

.00317 

.7271 

.3310 

.7497 

.3366 

-181.8 

-.12 

.4818 

.00336 

.00316 

.7495 

.3298 

.7724 

.3360 

-181.6 

-.19 

.4720 

.00363 

.00307 

.7722 

.3287 

.7955 

.3354 

-181.3 

-.24 

.4634 

.00390 

.00290 

.7953 

.3278 

.8187 

.3349 

-181.0 

- .29 

.4559 

.00415 

.00264 

.8186 

.3271 

.8420 

.3346 

-180.6 

-.32 

.4497 

.00438 

.00230 

.8419 

.3267 

.8648 

.3344 

-180.2 

-.33 

.4447 

.00457 

.00191 

.8648 

.3266 

.8868 

.3344 

-179.8 

-.33 

.4411 

.00472 

. 00148 

.8868 

.3267 

.9070 

.3345 

-179.4 

-.29 

.4387 

.00483 

.00104 

.9071 

.3270 

.9252 

.3350 

-179.1 

-.24 

.4373 

.00490 

.00066 

.9253 

.3276 

9386 

.3352 

-178.9 

-.03 

.4366 

.00495 

. 00048 

.9387 

.3279 

.9465 

.3353 

-178.9 

1.29 

.4363 

.00497 

.00045 

.9466 

.3280 

.9481 

.3354 

-179.1 

0.00 

.4356 

.00497 

.00045 

.9483 

.3280 


RATC - . 5342 


PROFILE DRAG COEFFICIENT - .0051 

LOSS COEFFICIENT - .0093 
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V. USER'S MANUAL 


5. 1 Input for Program COMPRES 


This chapter is intended as a guide for those using Program 
COMPRES . It - summarizes diff er eh £~c 6 de op tion s and describes - “input and" 
output parameters. Also discussed are modifications that may be 
required to achieve a good design. The Glossaries of input and output 
parameters in Chapter VII will also be helpful to new users of the 
code. 

The code is written in Fortran 4 and runs on the Cyber 170 
computer at the Courant Institute of Mathematical Sciences. A typical 
run at MRP = 1, NFC = 32, and NI = 2 requires 200K octal words of core 
storage and 12 minutes of CP time. 

The input to the design program consists of two data files, TAPE3 
and TAPE7. TAPE3 contains data specifying the speed q as a function of 
arc length s along the airfoil measured from the lower trailing edge to 
the upper trailing edge. The first record of the file contains NIN, 
the number of data points to be entered. The code uses different 
routines to interpolate this data, based on the sign of NIN. For NIN 
negative a distribution q(s) of points is computed by an exponential 
spline fitting routine as shown in Figure 16. When NIN is positive, a 
cubic spline interpolation routine is used as in the speed distribution 
of Figure 7, and a 'Teater number of carefully chosen data points are 
required. 

The exponential spline routine interpolates data according to the 
ordinary differential equation 



-58- 


-E l!l + ii = G 
ds^ ds^ 

where E, G and q must be specified for each value of s. E controls the 
oscillation at the data point and G is a tension parameter which 
weights the curve. Lowering E decreases the oscillation until the 
limiting case where E vanishes, when the resulting curve is quadratic. 
Positive values of G result in a convex speed distribution while 
negative values reverse the curvature. This interpolation routine has 
the advantage that a smooth speed distribution may be obtained from a 
small number of data points. It is useful when the speed distribution 
must be varied slightly in a series of runs for the purpose of 
achieving an optimal design. 

TAPE7 contains all the other input parameters used in the code. A 
list of these is found in the Section 7.1, together with the default 
values which are used when no input value is given. TAPE7 parameters 
are entered in namelist format, as described in standard Fortran 
references. A card sequence for a typical cascade run is shown below. 

Data Card 1 : 

{ $ONE NRN=10, NFC=64,MRP=-1 ,NI=3,NOSE=6,NCAS=3$ } 

Data Card 2: 

{ $ONE EP=.4, MACH=. 64, RN=1.0 E+06$ } 

Data Card 3: 

{ $ONE XIA=( . 92, . 30) , XIB=(-. 86, -. 25)$ } 

Data Card 4: 


{ $0NE IPLT=82$ } 
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Most TAPE7 parameters are easily chosen and need not be discussed. 
A valid flow is computed regardless of the number, NI, of iterations of 
the map function, although at least 3 iterations are usually required 
to achieve an accurate fit to the prescribed pressure distribution. 
The location of the constants XIA, XIB, and XIC requires special 
attention and will be discussed in Section 3. 

MACH denotes the Mach number of the flow at q=l and is used to 
determine c*. Incompressible flows can be found by setting MACH to 
.001. Subsonic flows result from runs with low values of MACH. To 
obtain transonic flows, MACH must be chosen so that the supersonic 
region is of adequate size, since the code is most sensitive near the 
surface M^ = l. Raising MACH affects the resulting design by increasing 
the size of the supersonic zone and the free stream Mach number and 
decreasing the thickness-to-chord ratio and the vertical separation at 
the trailing edge. It should have little effect on the lift or the 
horizontal separation at the tail. Too large a value of MACH results 
in grids which intersect the sonic surface. In this case the 
characteristic equations become singular and the correct solution will 
not be found. 

The factor RATC is used to improve the convergence of the series 
used in the map from the ellipse to the hodograph plane. This map from 
(5 ,h )-space to the (s , t )-coordinates of hodograph space is given by 

£ - £ 0 h-no — = 

s - exp f(£ ) , t = exp f (n) 

RATC*C-5 0 RATC*n-n 0 


where Cq is the stagnation point and f is a series of Chebyshev 
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polynomials. RATC must be of absolute value less than one to place the 
singuljiLxt outside of the ellipse and near the stagnation point. 
Generally, RATC is determined by the code in subroutine CYCLQ, but for 
low values of the ellipse parameter the user may want to adjust this 
quantity. A lower value of RATC is indicated when the resulting 
pressure distribution oscillates near the stagnation point. 
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5. 2 The speed distribution 


The speed distribution of a cascade of lifting airfoils in 
transonic- flow is- shown -In Figure 7. On the upper surface “ the - speed~ 
rises from stagnation to supersonic values, -which extend in a 
horizontal arc along the first 25-40% of chord and then fall to a 
Stratford distribution near the tail. Along the lower surface the 
speeds are assigned negative values and are slower than those of the 
upper surface. In Figure 7 the lower surface speeds are entirely 
subsonic, although -supersonic speeds may be attained, as shown in 
Figure 16. In this case the lower surface speed distribution more 
closely resembles the upper distribution. 

When designing a profile it will be necessary to modify the input 
speed distribution to achieve given specifications. The lift of the 
blades may be raised by increasing the area between the Mach 
distribution on the upper and lower surfaces, which is shown in Figure 
13. The leading edge radius and the thickness-to-chord ratio are 
decreased by raising q'(s) at stagnation. Separation is determined by 
the slope of the upper surface speed distribution near the trailing 
edge which must be adjusted to keep SEP constant and near .003 in order 
to prevent boundary layer separation. 

The trailing edge of, the profile should terminate in two parallel 
horizontal arcs which are perpendicular to the line joining their end 
points. For the cascade the thickness of the trailing edge should be 
approximately 2% of chord before the boundary layer correction. In 
order to achieve this, the speed can be modified to change DX, the 
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horizontal distance between the upper and \ r . endpoints, and the 
vertical distance DY. DX is adjusted by rescaling the arc length on 
the upper or lower surface of the airfoil. A large value of DX 
indicates an excess of upper surface arc length which will be 
diminished by decreasing s on the upper surface or increasing it on the 
lower surface. Small values of DX indicate a greater proportion of 
lower surface arc length and are adjusted by increasing s on the upper 
surface or decreasing it on the lower surface. DY increases with the 
value of q at the trailing edge. 

When performing runs to obtain a desired geometry it is advisable 
to adjust the speed distribution in stages so that the effects of each 
change can be observed. Most of these changes have little effect on 
the gao-to-chord ratio, which depends primarily on the location of the 
singularities XIA and XIB. 
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5. 3 The parameters in the ellipse 

Solutions to the transonic flow equations having a given speed 
distribution q(s) are determined uniquely -by specifying 3 -real — 
constants in the ellipse plane 5 - h. In the case of the airfoil, 
these are the mesh point NOSE assigned to stagnation and the complex 
singularity XIA. In the case of the cascade both XIA and XIB, which 
correspond to the exit and inlet velocities respectively, are prescibed 
by the user, as well as the mesh point NOSE. Thus a total of 5 real 
constants are prescribed, which overdetermines the map from the (£ ,n )- 
to the (s,t)-plane. For this reason, the selection of these points 
will determine some physical property of the flow which we could 
otherwise prescribe. In our case this property is the gap and the 
stagger of the blades. If a particular gap-to-chord ratio and 
orientation of the cascade is desired, it must be obtained by a series 
of runs which adjust the parameters in the ellipse. We discuss here 
how to vary these parameters, and the ellipse parameter EP, in order to 
construct vertical arrays of thin compressor airfoils with gap-to-chord 
ratios near .5 and maximum Mach numbers near 1.2. 

Lowering EP decreases the gap-to-chord ratio, as does increasing 
the distance between XIA and XIB. A small value of EP also increases 
the distribution of points in the physical plane corresponding to the 
ellipse boundary near the y-axis and makes the solution more sensitive 
to the placement of XIA, XIB, MACH and NOSE. The orientation of the 
olades is determined by the angle of the branch cut from XIA to XIB 
relative to the stagnation point. It is useful to keep XIA and XIB 
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close to the y-axis because of the Increased resolution near the foci 
of the ellipse, and to vary NOSE instead. The effect of moving this 
mesh point in the clockwise direction for fixed XIB is to increase the 
camber of the blades and to rotate them counterclockwise. The location 
of XIC determines the initial planes for the series of regular 
solutions, but does not affect the resulting flow. 

Since the problem to be solved is nonlinear, these parameters 
combine in a complicated fashion and a series of runs will be required 
in which each parameter is changed separately. We recommend here the 
following procedure for obtaining a good design. Given a speed 
distribution, determine the value of MACH which produces the desired 
Mach numbers along the profile. In the following runs, MACH may then 
be lowered slightly to avoid possible difficulties with the sonic 
surface. Next, place XIA and XIB at points which result in the proper 
gap-to-chord ratio, and then change NOSE to adjust the orientation and 
curvature of the blades. These steps may be repeated several times. 
Because the location of the stagnation point must be changed by a 
discrete amount while the singularities vary continuously, fine 
modifications are more easily obtained by moving the latter. MACH may 
then be increased to its desired value or until difficulties arise with 
the sonic surface. Finally, the speed distribution is changed to yield 
the desired thickness, closure and lift. 
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5.4 Difficulties with the code 


We describe here certain difficulties which may arise in the 
operation of the code and methods for resolving them. The first 
problem concerns the location of points on the sonic surface = 1. At 
such points the characteristic equations fail and a correct solution 
will not be obtained. Hence the transonic and supersonic paths are 
constructed to avoid them. If such a point appears on the rectangular 
grids as the last point along a £ -characteristic at which the solution 
is computed, the inaccuracy of the solution at the point will not 
affect the computation in the rest of the grid. However, if the sonic 
point occurs at an interior point of the grid, the resulting error will 
be transmitted to all other points on the characteristic. 

Points on the sonic surface may be detected on the plot in Figure 
3, which comprises the ellipse in the £ -plane and the n -plane with the 
sonic locus and the paths of integration. In the figure, points on 
transonic and supersonic paths which result in sonic points have been 
indicated. As was discussed in Section 3.4, a point on the sonic 
surface results from a pair of points on the initial paths in the 
planes £ = £ A and p = P^ which are approximately the reflections of one 
another across the sonic surface. This rule of thumb will often allow 
the user to locate sonic points using the graphic of the ellipse 
(Figure 3). 

Points near the sonic surface at which the Mach number is close to 
1 may also result in numerical errors. For this reason, these points 
are listed in the printed output. If at a point (£ ,n ) the quantity 
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is less tha” ”, both the point and the root are printed in a 

table. This information may be used to modify the paths of integration 

in a manner described in the next section. 

A second difficulty concerns the branch of / l-M^. The branch 
assigned by the complex function CSQRT in the code places the root in 
the same half plane as the root of the preceding point on the path. 
For Mach numbers near 1, this may be incorrect and the wrong branch of 
the root will result along the entire characteristic. Numerical 
studies have shown that the branch of the! root z should be such that 
Im(z) > -Re(z). This might be expected since the correct branch of the 

root in the subsonic case is positive imaginary and in the supersonic 

case is positive real. If the root is computed to lie below this line 
the code prints the diagnostic 

CORRECTION OF THE BRANCH AT XI = ( , ), ETA = ( , ) 

and the opposite branch of the square root is chosen. This diagnostic 

occurs in LAMBDA and LAMBD, the subroutines which compute x, X + an( j A 
the coefficients for the canonical equations and the characteristic 
equations for u and v. 

A third difficulty involves the branch of the logarithms in the 

singular solutions for $ and V . The paths are constructed by the code 

to traverse the singularities properly and to supply the necessary 
jumps when a path encircles a singularity. It is possible, however, 
for paths to cross branch cuts. The following diagnostics have been 
inserted to indicate this: 

TRANSONIC PATH CROSSES CUT FROM XIA TO XIB 


TRANSONIC PATH CROSSES CUT FROM XIB TO XIC 
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In the case of a subsonic or supersonic path, similar diagnostics 
appear. 

A final difficulty concerns the location of the paths of 
integration. When MACH is high and the points XIB and XIC are close to 
the ellipse boundary, there is little room in which to construct paths 
around the singularity and still avoid points on the sonic surface. In 
some cases this may not be accomplished by the paths in the code. The 
user may then construct the paths manually by changing a few 
instructions in the code. This procedure is described in the following 
section. 
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5. 5 Changing the paths of integration 


The paths of integration are constructed by the subroutines 
GTPATH, SUPATH, and PATH. GTPATH determines the location of subsonic 
and transonic paths, while SUPATH is concerned with supersonic paths. 
Subroutine PATH actually constructs the paths of integration and is 
called by the two other subroutines. 

Calls to PATH are of the form: 

CALL PATH (RAD.TH1, TH2, Kl, K2). 

PATH will then construct an arc from XI (Kl), which was previously the 
terminal point of the path, to a final point XI (K2). This arc is 
constructed as follows: let XIF be the point in the ellipse 
corresponding to the point RAD*(exp(i*THl ) ) and let XIL be a second 
point in the ellipse corresponding to the point RAD*(exp(i*TH2)). PATH 
first constructs a straight line from XI (Kl) to XIF. If XIF=XIL this 
completes the arc, so that XI(K2)=XIF. If not, a second arc is 
constructed along the boundary of the ellipse with foci — 1 between the 
points XIF and XIL, terminating at XI(K2)=XIL. 

In Subroutine GTPATH a subsonic path of integration is first 
constructed consisting of an arc joining XIC to the ellipse boundary 
together with the required portion of the boundary. This is 
accomplished with a single call to PATH. GTPATH then tests the speed 
at all points of the path lying on the ellipse boundary. If the sonic 
locus is not encountered, the appropriate subsonic path has been 
constructed. If, however, points beyond the sonic line occur on the 
boundary, the subroutine replaces this subsonic path with a transonic 
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path. This is accomplished with two additional calls to PATH. The 
first consists of a straight line from XIC to a point in the subsonic 
region at some distance from the sonic line. The second call 
constructs a straight line to the ellipse boundary together with a 
portion of the boundary. 

In order to alter a particular path, the proper parameters must be 
included in order to identify it. The paths are numbered from 1 to NP 
in the counterclockwise direction, beginning with the path containing 
the stagnation point. The parameter MODE denotes the path in question. 
Subsonic paths occur when the parameter KC is-0, while for transonic 
paths KC=1. Since a pair of paths must be constructed for each value 
of MODE in the transonic case, these are distinguished by the value of 
FAC. For F AC = 1 , the transonic n-path is constructed, which traverses 
the ellipse in the counterclockwise direction. When FAC=-1 the £ -path 
is determined. This path travels the ellipse in the clockwise 
direction. 

Figure 3 shows a path constructed by the code and its subsequent 
manual alteration. . Note that in the ..first . figure , reflected points are 
present on a pair of £- and r\ -paths in the ellipse. The update 
required in order to alter these paths is given below. 
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In subroutine SUPATH two sets of calls to PATH construct the 
supersonic paths. As shown in Figure 2, these paths wind around the 
sonic - loci in order to achieve the right branch of the solution. In 
order to avoid points on the sonic surface, the paths first extend 
beyond the ellipse boundary for short arcs and then lie on the 
boundary. They then terminate along the sonic loci. The £-path, which 
is constructed first, traverses the sonic locus in the clockwise 
direction, while the n-path traverses the same locus in the 
counterclockwise direction. These supersonic paths are each 
constructed using three calls to subroutine PATH, and changes in these 
calls will alter the placement of a supersonic path. 
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C L : LIFT COEFFICIENT 

C D : DRAG COEFFICIENT 

M. : FREE STREAM MACH NUMBER 

Mo,: CRITICAL MACH NUMBER 

M d : DRAG RISE MACH NUMBER 

FIG. 1. LIFT AND DRAG AT TRANSONIC SPEEDS 
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A SUBSONIC INTEGRATION PATH 
B TRANSONIC INTEGRATION PATHS 
C SUPERSONIC INTEGRATION PATHS 
D SONIC LOCUS/SONIC LINE 
E STAGNATION POINT 
F TRAILING EDGE 

FIG. 2. COMPLEX CHARACTERISTIC £-PLANE 
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FIG. 3. POINTS ON SONIC SURFACE 
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• POINT ON THE COMPUTATIONAL GRID 
+ POINT OF INTEGRATION FOR X AND Y 
O POINT ON THE ELLIPSE BOUNDARY 


FIG. 4. COMPUTATIONAL GRID FOR SUBSONIC PATH 
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FIG. 5. COMPUTATIONAL GRID FOR TRANSONIC PATH 
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FIG. 6. COMPUTATIONAL GRID FOR SUPERSONIC PATH 



- 77 - 



FIG. 7. INPUT Q(S) FOR CASCADE TEST uaSE 
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^ = 1.08, 0.00 


(. =- 1 ' 06 ' - 02 



.02 


FIG. 9. 


hodograph PLANE FOR TEST case 





Ml =.767 M2=.4^5 DEL TH= 44.81 6/0= .81 


FIG. 12. TEST CASE CASCADE FROM KORN CODE 
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INTEGRATION for COMPRESSOR 
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.INPUT SPEED DISTRIBUTION 


FIG. 16. 


INPUT FOR CASE WITH TWO SUPERSONIC ZONES 
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F IG. 17. HODOGRAPH PUNE WITH TWO SUPERSONIC ZONES 
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2.0 _ 



INPUT SPEED DISTRIBUTION 


FIG. 21. INPUT SPEED DISTRIBUTION FOR TURBINE 
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U = 1.00, .02 £ 0 =-1.08, .20 £ c =-1.11, .14 

FIG. 22 PATHS OF INTEGRATION FOR TURBINE 

r - 
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VII GLOSSARIES 


7.1 Input parameters 


Parameter used in the extension of the map function across 
the sonic line. Default = .5 

Parameter used in the extension of the map function across 
the sonic line. Default = 1.0 

Parameter used in the artificial boundary condition along the 
transonic arc of the. ellipse. Default =1.0 

Parameter denoting the shape of the ellipse. EP is the ratio of 
the minor ellipse axis to the major ellipse axis. Default = .8 

The gas constant. Default = 1.4 

Grid spacing parameter. GRID divided by MRP is the maximum mesh 
size. Default = .08 

A two digit integer which controls graphics. For negative IPLT, 
no plots are generated. The first digit controls the plot of the 
Mach or pressure distribution: 

0 no plot generated 

1 airfoil and Mach distribution 

2 same as 1 but with airfoil higher on the page 

3-4 same as 1-2 with characteristics 

5-9 same as 0-4 but with pressure plot instead of Mach plot 
The last digit controls the plot of the £ -plane: 

0 no plot generated 

1-2 plots ellipse with sonic locus and paths of integration 
3-4 same as 1-2 but without coordinate axes 
5-9 same as 0-4 with contour curves q = constant 
For IPLT = 0, only the input speed distribution and the resulting 
cascade of airfoils are plotted. Default = 34 

MACH The Mach number at q = 1 , which is used to determine the critical 

speed. Raising MACH increases the size of the supersonic zone. 
Default = .75 

MRP Mesh refinement parameter. Controls the number of points on the 

computational grid, e.g. doubling it cuts mesh spacing in half. 

If NI > 1 , mesh refinement is done only on the last iteration. MRP 
negative gives 3rd order accuracy by use of Richardson extrapolation. 
Default = 1 

NCAS The number of cascades in the cascade graphic. Default = 2 


CONE 

CTWO 

CTHR 

EP 

GAMMA 

GRID 

IPLT 


NI 


The number of iterations for the map function from the ellipse to 
the hodograph plane. Default = 1 
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NFC 

NOSE 

NP 

NPTS 

NRN 

RATC 

RN 

TRANU 

TRANL. 

XIA 

XIB 

XIC 


The number of Chebyshev coefficients in the expansion of the map 
function. Us'„ t: define NF = 2*NFC, which is the number of 
functions in the series representing $ and ¥ , and the number of 
nodes on the ellipse. Default = 32 

Parameter which locates the mesh point on the ellipse corresponding 
to stagnation. The argument of the stagnation point is 
n -NOSE* (n /NFC). Default = 0 

The number of paths of integration in the ellipse. NP must 
be an even integer that divides NFC. Default = 8 

The number of points in the spline defining the input speed 
distribution. Default = 201 

Run number. A negative value of NRN results in white paper plots. 
Default =1 

The factor used to improve the convergence of the map function from 
the ellipse to the hodograph plane. If RATC = 0, it will be 
determined in subroutine CYCLQ. Default = 0 

Reynolds number. If RN = 0 no boundary layer correction is made. 
Default = 0 

The value of x (before rotation) at which the turbulent 
boundary layer integration on the upper surface starts. 

Default = .05 

The value of x (before rotation) at which the turbulent boundary 
layer integration on the lower surface starts. Default = .10 

The point in the 5 -plane corresponding to the exit velocity. 

For an isolated airfoil, set XIA = XIB. Default = (0.,0.) 

The point 5g i n the £ -plane corresponding to the inlet velocity. 

For an isolated airfoil, set XIA = XIB. Default = (0.,0. ) 

The point Zq determining the characteristic initial plane 
for the inhomogeneous and regular solutions. The default value 
for the airfoil is 


^ A 


4 * GRID * (R1 - £ A ) 

|R1 -C A | 


For the cascade it is 



GRID * (5 B - C A ) 
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7. 2 Output parameters 


ANG 

C L 

DEL TH 

DIFFUSION 

FACTOR 

DX 


DY 


EXIT FLOW 
ANGLE 

G/C 


INLET FLOW 
ANGLE 

K 


LOSS 

COEFFICIENT 


Angle of the tangent to the flow along the airfoil. 
Standard lift coefficient. 

The change in flow angle from x = - 00 tox = + 00 . 
Standard measure of performance of compressor blades. 


The horizontal displacement before boundary layer correction 
from the lower to the upper trailing edge. 

The vertical displacement before boundary layer correction from 
the lower to the upper trailing edge. 

The clockwise angle between the vertical and the flow at 
x = + 00 . 

Gap to chord ratio. The vertical distance between blades 
divided by chord length. 

The clockwise angle between the vertical and the flow at 
x = - 00 . 

The curvature of the airfoil before the boundary layer 
correction. 

Loss coefficient computed from the boundary layer correction. 


M For the isolated airfoil, the Mach number at infinity. 

Inlet Mach number. For the cascade, the Mach number at 
x = - 00 . 


PROFILE DRAG 
COEFFICIENT 

SEP 

T/C 

THETA 

TRANSITION 


Exit Mach number. For the cascade, the Mach number at 
x = + 00 . 

Drag coefficient computed from boundary layer correction. 

Nash-Macdonald separation parameter. The boundary layer is 
predicted to separate for SEP > .004 . 

Thickness to chord ratio. 

Momentum thickness of the boundary layer. 

Point on the upper or lower surface at which the turbulent 
boundary layer correction begins. 
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X x coordinate of the airfoil before the boundary layer 

correction. 

XS x coordinate of the airfoil after the boundary layer correction 

Y y coordinate of the airfoil before the boundary layer 

correction. 


YS 


y coordinate of the airfoil after the boundary layer correction 



-99- 


VIII. BIBLIOGRAPHY 


1. BAILEY, F.R., and BALLHAUS, W.F. - Relaxation methods for 
transonic flow about wing-cylinder combinations and lifting swept 
wings, Lecture Notes in Physics , Vol 19, pp. 2-9, 

Springer-Verlag, New York 1972. 


2. BAUER, F., GARABEDIAN, P. , and KORN, *D. - A Theory of 

Supercritical Wing Sections , with Computer Programs and Examples , 
Lecture Notes in Economics and Mathematical Systems, Vol. 66, 
Springer-Verlag, New York, 1972. 


3. BAUER, F., GARABEDIAN, P. , JAMESON, A., and KORN, D. 

Supercritical Wing Sections II , a^ Handbook , Lecture Notes in 
Economics and Mathematical Systems, Vol, 108, Springer-Verlag, 
New York, 1975. 


4. BAUER, F., GARABEDIAN, P. , and KORN, D. - Supercritical Wing 
Sections III , Lecture Notes in Economics and Mathematical 
Systems, Vol. 150, Springer-Verlag, New York, 1977. 


5. CARLSON, L.A. - Inverse transonic flow calculations using 
experimental pressure distributions, A. I. A. A. Journal, Vol. 12, 
pp. 571-572, 1974. 


6. CARLSON, L.A. - Transonic airfoil analysis and design using 
Cartesian coordinates. Journal of Aircraft, Vol. 13, pp. 
349-356,1976. 


7. COURANT, R. , and FRIEDRICHS, K.O. - Supersonic Flow and Shock 
Waves , Interscience-Wiley, New York, 1948. 


8. FORSYTHE, G.E., and WASOW, W.R. - Finite Difference Methods for 
Partial Differential Equations , Wiley, New York, 1960. 


9. GARABEDIAN, P. - Partial Differential Equations , 
Interscience-Wiley, New York, 1964. 

10. GARABEDIAN, P. , and McFADDEN, G. - Computational fluid dynamics 

of airfoils and wings. Transonic , Shock and Multidimensional 
Flows: Advances in Scientific Computing , Ed. Meyer, R.F. 

Academic Press, New York, 1982. 



- 100 - 


11. LANGLEY, M.J. - Numerical methods for two-dimensional and 
axisymmetric transonic flows, ARA Memo 143, 1973. 


12. McCARTIN, B. - Theory, computation and application of exponential 
splines, R&D Report DOE/ER/3077-171 , Courant Inst. Math. Sci., 
New York University, 1981. 


13. McFADDEN, G. - An artificial viscosity method for the design of 
supercritical airfoils, R&D Report C00-3077-158, Courant Inst. 
Math. Sci., New York Univ., 1979. 


14. MORAWETZ, C.S. - On the nonexistence of continuous transonic 
flows past profiles I, Comm. Pure Appl. Math., Vol. 9, pp. 
45-48, 1956. 


15. MURMAN, E.M., and COLE, J.D. - Calculation of plane steady 
transonic flows, A. I. A. A. Journal , Vol. 9, pp. 114-121, 1972. 


16. NASH, J.F., and MacDONALD, A.G.J. - The calculation of momentum 
thickness in a turbulent boundary layer at Mach numbers up to 
unity, Aeronautical Research Council C.P. No. 963, London, 
1967. 


17. NIEUWLAND, G.Y., and SPEE, B.M. - Transonic airfoils: recent 

developments in theory, experiment, and design, Annual Review of 
Fluid Mechanics , Vol. 5, pp. 119-150, 1973, Annual Reviews, 

Inc., Palo Alto, Calif., 1973. 


18. NIEUWLAND, G.Y. - Transonic potential flow around a family of 
quasi-elliptical aerofoil sections, N.L.R. Report Tr.T172, 1967. 


19. PEARCEY, H.H. - The aerodynamic design of section shapes for 
swept wings. Advances Aero. Sci. , Vol. 3, p. 277-322, 1962. 

20. SANZ, J. - Design of supercritical cascades with high solidity, 
A. I. A. A. Paper 82-10954, 1982. 


21. SANZ, J. - A well posed boundary value problem in transonic gas 


dynamics. 

Comm* 

Pure 

Appl. 

Math., Vol. 

31, pp. 671-679, 1978 

22. SHIFFMAN, 

M. 

- On 

the 

existence of 

subsonic flows of 


compressible fluid, J. Rati. Mech. Anal., Vol. 1, pp. 
605-652, 1952. 



- 101 - 


23. SOBIECZKY, H. , FUNG, K.Y. , and SEEBASS, A.R. - A new method for 
designing shock -free transonic configurations, A. I. A. A. Paper 
78-1114. * ~"8. 

24. SPEE, B.M. , and UIJLENHOET, R. - Experimental verification of 
shock-free transonic flow around quasi-elliptic aerofoil 
sections, N.L.R. Report MP 68003 U, 1969. 

25. SWENSON, E. - Geometry of the complex characteristics in 
transonic flow, Comm. Pure Appl. Math., Vol 21, pp. 175-185, 
1968. 


26. TRANEN, T.L. - A rapid computer aided transonic airfoil design 
method, A. I. A. A. Paper 74-501, 1974. 


27. WHITCOMB, R.T. , and CLARK, L.R. - An airfoil shape for efficient 
flight at supercritical Mach numbers, NASA TM X-1109, 1965. 



000000000000000000000000 0-000000000000000000000 


- 102 - 


VII. LISTING OF THE CODE 


LISTING OF CODE COMPRES WITH COMMENT CARDS 
TABLE OF SUBROUTINES 

1. COMPRES MAIN CONTROL PROGRAM 102 

2. PAGE 2 WRITE INPUT PARAMETERS ON OUTPUT TAPE 108 

3. READQS READ IN SPEED DISTRIBUTION ... 110 

4. PHIINC FIND INCOMPRESSIBLE SOLUTION IN ELLIPSE 111 

5. CYCLQ FIND MAP FROM ELLIPSE TO HODOGRAPH PLANE 113 

V. 6. IN IT INITIALIZE PATH CONSTRUCTION 115 

7. GTPATH DETERMINE PATHS IN ELLIPSE 117 

8. SUPATH DETERMINE SUPERSONIC PATHS 11 8 

9. PATH CONSTUCT PATHS OF INTEGRATION 121 

10. CONST FIND CONSTANTS FOR SINGULAR SOLUTIONS 123 

1 1 . SOLVE CONTROL ROUTINE FOR DIFFERENCE EQUATIONS 1 24 

12. LINEJ SOLVE EQUATIONS ON CHARACTERISTICS 127 

13- GETFS1 INITIALIZE FIRST SINGULAR SOLUTION 130 

14. GETFS2 INITIALIZE SECOND SINGULAR SOLUTION 131 

15. GETPHI INITIALIZE REGULAR SOLUTIONS 132 

16. INITFN CHEBYSHEV FUNCTION ON CHARACTERISTIC 133 

17. LINIT INITIALIZE NEXT CHARACTERISTIC OF GRID 13^ 

18. SAVE SAVE SOLUTIONS IN REAL FLOW REGION 135 

19. GETPSI SAVE SOLUTIONS IN COMPLEX FLOW REGION 138 

20. AUT02 FIND SOLUTION IN ELLIPSE 1 41 
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21. READX ORGANIZE SOLUTIONS FOR AUT02 1 44 

22. GETABC FIND COEFFICIENTS OF VELOCITY POTENTIAL 1 46 

23. OUTPT OBTAIN OUTPUT DATA AND WRITE ON FILE 150 

24. 3DYPTS ' READ DATA ON SUPERSONIC CHARACTERISTICS 156 

25. INTERP INTERPOLATE TO FIND SUPERSONIC BODY POINT 157 

26. NASHMC BOUNDARY LAYER CORRECTION 159 

27. LAMBDA FIND COEFFICIENTS OF DIFFERENCE EQUATIONS 161 

28. LAMBD FIND COEFFICIENTS IN SUPERSONIC CASE 1 62 

29. DTAUDX COMPUTE INITIAL TERM NEEDED FOR AIRFOIL 162 

30. GETUV MAP FROM HODOGRAPH TO VELOCITY SPACE 1 63 

31 . GETHSQ MAP FRCM VELOCITY TO HODOGRAPH SPACE 1 64 

32. STOFXI MAP FROM ELLIPSE TO HODOGRAPH SPACE 165 

33. SFROMX FUNCTION EQUIVALENT OF SUBROUTINE STOFXI 166 

34. XIOFS MAP FRCM HODOGRAPH SPACE TO ELLIPSE 1 66 

35. RING . FIND CHEBYSHEV COEFFICIENTS OF MAP 1 67 

36. SIG FIND POINT IN RING FRCM POINT IN ELLIPSE 1 68 

37. RHO COMPUTE DENSITY FRCM SPEED 1 68 

38. CSQRT FIND SQUARE ROOT OF COMPLEX NUMBER 1 69 

39. LEQ GENERAL LINEAR EQUATION SOLVER 169 

40. SPLIF GENERAL CUBIC SPLINE ROUTINE 171 

41. PSPLIF GENERAL PERIODIC SPLINE ROUTINE 172 

42. INTPL INTERPOLATION ROUTINE FOR CUBIC SPLINE 174 

43- INTPLI ■ INVERSE INTERPOLATION . USING. CUB IC . SPLINE 175 

44. SPTEN GENERAL EXPONENTIAL SPLINE ROUTINE 176 

45. INTEN INTERPOLATION USING EXPONENTIAL SPLINE 178 

46. FOUCF GET FOURIER COEFFICIENTS OF FUNCTION 178 
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47. FFORMS 

FAST FOURIER TRANSFRCM ROUTINE 

179 

48. GRAPH 

CONTROL ROUTINE FOR GRAPHICS 

182 

83. PLOTQS 

PLOT SPEED DISTRIBUTION 

183 

50. LOCUS 

PLOT COMPLEX HODOGRAPH PLANE 

186 

51 . CONTOR 

PLOT CURVES Q= CONST 

188 

52. PLPATH 

PLOT PATHS OF INTEGRATION 

191 

53. BDYPLT 

PLOT ISOLATED AIRFOIL 

192 

54. CASCAD 

PLOT CASCADE OF AIRFOILS 

193 

55. PLTCHR 

PLOT SUPERSONIC CHARACTERISTICS 

194 

56. XYAXES 

PLOT COORDINATES AXES 

195 


LIBRARY SUBROUTINES 


FRAME 

BEGIN NEW PAGE OF PLOT 


PLOT 

DRAW LINE BETWEEN TWO POINTS 


PLOTS 

INITIALIZE GRAPH PAPER PLOTS 


PLOTSBL 

INITIALIZE BLANK PAPER PLOTS 


SYMBOL 

DRAW SYMBOL ON PLOT 



INDEX OF TAPES 


TAP El 

INTERNAL TAPE 


TAPE3 

INPUT TAPE FOR SPEED DISTRIBUTION 


TAPE4 

OUTPUT TAPE 


TAPE? 

INPUT TAPE FOR NAMELIST PARAMETERS 


Ml 

INTERNAL TAPE 


TAP El =M1 

UNLESS MRP NEGATIVE. IN THIS CASE, 

RICHARDSON 


EXTRATPOLATION IS DONE AFTER THE LAST ITERATION, AND THEN 
TAPE! =TAPE3- 



noon oooooooo 
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TAPE7 IS LATER USED TO STORE DAT.. li. SUPERSONIC REGION 
NEEDED TO PLOT CHARACTERISTICS IN SUBROUTINE PLTCHR 


PROGRAM C0MPRES( OUTPUT, TAP E*J “OUTPUT, TAPE7, TAPE1 ,TAPE3) 

THIS CODE COMPUTES SMOOTH SOLUTIONS TO THE TRANSONIC FLOW 
EQUATIONS USING THE METHOD OF COMPLEX CHARACTERISTICS 
THIS ROUTINE IS THE MAIN CONTROL PROGRAM 

COMMON /I/ NP,KBM,MODE, NF, NN,MM, NI, NX, IS,KC, LBM, JJ,KK,NB, NC.MRP, NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF, KP, NOSE, NCAS 
COMMON /2/ PI, TP,GRID, TOL 
COMPLEX XIA,XIB,XIC , DZ 

COMMON /3/ R, R1 , R2, RATC, PHMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB, VA, VB,UC, 

1 VC , TRANU , TRANL, CONE , CTWO , CTHR, EP, RN, SO , THNOS , DZ 
REAL MACHA.MACHB 

COMMON 77/ MACHA.MACHB, ANGLA.ANGLB 
REAL MACH 

COMMON /A/ GAMMA, MACH, RHOINF, EMU.QSTRSQ 
COMMON /G/ NI ,N3,NM,N7,M1 

COMPLEX FI , F2 , F3 , SI , S2, S3 , PHI, PSI.U, V, LAMDAP, LAMDAM, TAU.XI, ETA 
COMMON PHI(585,1),SKA(390),PSI(585,1),SKB(390) ,XI(585) ,ETA(585) ,U( 
1585) , VC585) ,F1 (585) ,S1 (585) ,F2(585) ,S2(585) ,F3(585) , S3 (5 85 ) , LAMDAP 
2(585) , LAMDAM(585) , TAU(585) 

THE ABOVE COMMON IS CONSTRUCTED SO THAT ARRAYS HAVE DIMENSION 
195 IN THE ELLIPSE WHERE 16 FUNCTIONS PHI AND PSI ARE COMPUTED 
IN THE SUPERSONIC REGIONS ARRAYS HAVE DIMENSION 585 AND ONE PAIR 
OF FUNCTIONS PHI AND PSI IS COMPUTED 

NAMELIST /ONE/ NRN, IPLT, NFC, XIA.XIB, EP, NP, MRP, NI, MACH, RN, GRID, GAMM 

I A , XIC , RATC , TRANU , TRANL , CONE , CTWO , CTHR , NPTS , NCAS, NOSE 
DATA NI /I / , N3/3/i N4/4/, N7/7/, LBM/1 95/.KBM/1 6/.NPTS/201 / , NP/8/.MRP/ 

I I / , NI/1 / , MACH/. 75/, RN/O . / , GRID/. 08/ , GAMMA/1 . 4/ , GAM/O . /, EP/. 8/ , XIA/ 
2( .0, .0) / ,XIB/( .0, .0)/,XIC/(0.,0. )/, NFC/32/, N0SE/0/.NCAS/2/, TRANU/. 
305/ , TRANL/ .10/, CONE/ . 5 / , CTWO/1 . / , CTHR/1 . / , NRN/1 / , RATC/O . / 

DATA NPTMAX/600/.NFCMAX/64/ 

C READ IN TAPE 7 PARAMETERS 
READ (N7.0NE) 

C CHECK THAT ARRAYS ARE PROPERLY DIMENSIONED 
IF ( NPTS. LE. NPTMAX ) GO TO 1 0 
WRITE (N4.240) NPTMAX 
CALL EXIT 

10 IF (NFC.LE. NFCMAX) GO TO 20 
WRITE (N4.250) NFCMAX *2 
CALL EXIT 

C IttOTlALlZE PARAMETERS REQUIRED IN CODE 
20 T0L-1.E-7 
PI=AC0S(-1 . ) 
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c 

c 


TP =2. *PI 

NBPS-NPC+1 

NF=2*NFC 

DARG=TP/FL0AT( NF) 

THNOS=PI-FLCAT( NOSE) *DARG 
NT=NF+1 

R=SQRT( ( 1 . +EP) /(I . -EP) ) 

R1 -.5«(R+1 ./R) 

R2=.5*(R-1 ./R) 

NNMAX=0 

IF (CABS(XIC).GT.TOL) GO TO 30 
XIC=XIA-4 . *GRID*( R1 -XIA) /CABS( R1 -XIA) 

IF (CABS(XIA-XIB) .GT.TOL) XIC=XIB+GRID*(XIB-XIA)/CABS(XIB-XIA) 
30 Ml =N1 
REWIND N1 
REWIND N3 
REWIND N7 
NM1 =8H DESIGN 
WRITE (N4,230) NM1 , NRN 
WRITE ( N4, 1 80) 

INITIALIZE PROBLEM 
CALL READQS 
CALL PAGE2 
MRPOLD=MRP 
MRP=1 

CALL PHI INC 
WRITE (N4.190) 

CALL SECOND (TIME) 

ITERATE TO FIND SOLUTION IN THE ELLIPSE 

DO 1 00 ITER-1 , NI 

IF ( ITER. EQ. NI) MRP=IABS(MRPOLD) 

FIND MAP FROM ELLIPSE TO HODOGRAPH PLANE 
CALL CYCLQ (ITER) 

CALL INIT (XI, ETA,U, V) 

NCP=NC+1 
CALL CONST (3) 

40 DO 80 M0DE=1 ,NP 
KC=0 

CALL GTPATH (XI, NC+1 , MM) 

JJ=KK 

NN=MM 

DO 50 J=NCP, NN 
50 ETA( J) =CONJG(XI( J) ) 

IF (KC.LE.O) GO TO 60 

CONSTRUCT TRANSONIC PATH IN ETA PLANE 

NNMAX=MAXO(NNMAX,MM) / 

CALL GTPATH (XI.NC+1 , MM) 

KKL=KK 

KK=JJ 

JJ=KKL 

60 NNMAX=MAXO( NNMAX,MM) 

IS=0 
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C COMPUTE SINGULAR TERMS AND NF-1 REGULAR TERMS 

DO 70 J=2,NF,KBM 
NX=MIN0(KBM,NF+1-J) 

IS=IS+1 

NJ=*J-2 

70 CALL SOLVE (NN) 

80 CONTINUE 

IF ( ( ITER. NE. NI) .OR. (MRPOLD. NE. -MRP) ) GO TO 90 
C RICHARDSON EXTRAPOLATION 

MRP=MRP+MRP 
N1=N3 
REWIND NI 

CALL INIT (XI,ETA,U,V) 

NCP=NC+1 
GO TO 40 

90 CALL AUT02 (RES.DZ) 

100 WRITE ( N4 , 200 ) ITER, MACHB,MACHA, RES, REAL(DZ) , AIMAG(DZ) 
CALL SECOND ( T1 ) 

TIME=T1 -TIME 
MSG=1 OH SUBSONIC 
WRITE (N4.210) MSG.NNMAX 
WRITE ( N4 ,220) MSG, TIME 
C FIND SOLUTION IN REAL SUPERSONIC ZONE 
CALL SECOND (TIME) 

MRP=IABS( MRPOLD) 

NI =M1 
REWIND NI 
READ (NI) 

READ (NI) 

READ (NI) 

READ (NI) 

. READ ( NI ) 

NNMAX=0 

IS=1 

NX=1 

110 CALL INIT (XI, ETA,U, V) 

NCP=NC+1 

J=0 

120 KC=0 
J=J+1 

IF ( J.GT.6) GO TO 160 
MO DEW 

CALL SUPATH ( J,XI, NC+1 ,MM) 

IF (MM.EQ.O) GO TO 140 
NNMAX=MAXO ( NNMAX , Mm ) 

CALL SUPATH (J, ETA, NC+1 ,NN) 

DO 130 M=NCP, NN 
130 ETA(M)=CONJG(ETA(M) ) 

NNMAX=MAXO( NNMAX , NN) 

CALL SOLVE (NN) 

GO TO 120 

140 IF ((MRP.NE. -MRPOLD). OR. (J.EQ.1)) GO TO 1 50 
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C RICHARDSON EXTi^rUi. 1TI0N 
MRP=MRP+MRP 
N1 =N3 
REWIND N1 
GO TO 110 
150 CONTINUE 

CALL SECOND (T1) 

TIME=T1 -TIME 

MSG=1 OHSUPERSONIC 

WRITE (N4.210) MSG.NNMAX 

WRITE (N4,220) MSG, TIME 

WRITE ( N1 ) WTAI L+TP +T0L , WTAI L+ TP +T0L 

MRP=IABS(MRPOLD) 

C FIND WRITTEN AND GRAPHICAL OUTPUT 
CALL OUTPT ( TC , GAP , GC ) 

CALL GRAPH (TC.GAP.GC) 

CALL EXIT 
160 WRITE (N4.170) 

CALL EXIT 

170 FORMAT (///13X40H TOO MANY SUPERSONIC ZONES. CHANGE SPEED, 13H DIST 
1 RIBUTION) 

180 FORMAT (1 H0/38X,1 1 HTAPE3= INPUT/) 

190 FORMAT (////I 3X5HCYCLE, 4X6HMINLET,5X5HMEXIT,5X8HRESIDUAL,8X2HDX,8X 
12HDY/) 

200 FORMAT ( 1 HO, 1 1X15, 1X.2F10.3.E1 3-3, 1X.2F10.5) 

210 FORMAT (///I 3X8HLONGEST ,A10,10H PATH HAS ,I3,7H POINTS) 

220 FORMAT (/1 3X, A1 0, 1 1 H CP TIME IS.F7.1.8H SECONDS) 

230 FORMAT ( 1 HI /8X, 1 9HBEGIN EXECUTION OF A8,4H RUN, 14) 

240 FORMAT (56B3****SPLINE OF INPUT SPEED DISTRIBUTION CAN HAVE AT MOS 
1T.I4.12H POINTS. **#*//4l H****CHANGE NPTS OR DIMENSION OF ARRAYS IN 
21 OHCOMMON****) 

250 FORMAT (50B3****MAXIMUM DIMENSION OF ARRAYS AROUND ELLIPSE IS.I4.4 
: tH****/ /48H****CHANGE NFC OR DIMENSION OF COMMON BLOCKS****) 

END 


SUBROUTINE PAGE2 

C PRINTS TAPE 7 PARAMETERS ON SECOND PAGE OF OUTPUT 

COMMON /I/ NP.KBM.MODE, NF.NN.MM, NI.NX, IS.KC, LBM, JJ.KK, NB, NC ,MRP,NJ 
1 , KF, NBPS, NFC, NRN, NPTS, NT, IPLT, LOFF.KP, NOSE, NCAS 
COMMON /2/ PI,TP,GRID,TOL 
COMPLEX XIA.XIB.XIC, DZ 

COMMON /3/ R, R1 ,R2,RATC,PHMN, GAM, WTAIL, XIA.XIB.XIC, UA.UB, VA, VB.UC, 
1 VC , TRANU , TRANL, CONE, CTWO , CTHR, EP, RN, SO , THNOS , DZ 
REAL MACH 

COMMON /A/ GAMMA, MACH, RHOINF, EMU.QSTRSQ 
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CC.'u v iuft /G/ N1 ,N3,N4,N7,M1 
CALL DATE ( I DATE) 

NRUN=IABS(NRN) 

NM1 =7 HCASCADE 
NM2=8H DESIGN 

IF (CABS(XIA-XIB) .LT.TOL) NM1 =7HAIRF0IL 
WRITE ( N4, 1 0) NM1 ,NM2,NRUN, IDATE 
NM1=8H RUN = 

NM2=8H IPLT = 

WRITE (N4,20) NM1,NRN,NM2,IPLT 
NM1 =8H NI = 

NM2=8H NP = 

WRITE (N4,20) NM1 ,NI,NM2,NP 
NM1 =8H NFC = 

NM2=8H NCAS = 

WRITE ( N4 , 20 ) NM1 , NFC, NM2, NCAS 
NM1 =8H NPTS = 

NM2=8H NOSE = 

WRITE (N4.20) NM1 , NPTS, NM2, NOSE 
NM1 =8H MACH = 

WM2=8H RN = 

WRITE (N4.70) NM1 .MACH.NM2.RN 
NM1 =8H EP = 

NM2=8H GAMMA = 

WRITE (N4.40) NM1 , EP , NM2 , GAMMA 
NM1 =8H RATC = 

NM2=8H CONE = 

WRITE (N4.40) NM1 , RATC , NM2 , CONE 
NM1 =8H CTWO = 

NM2=8H CTHR = 

WRITE (N4.40) NM1 , CTWO, NM2, CTHR 
NM1 =8H TRANU = 

NM2=8H TRANL = 

WRITE (N4.40) NM1 , TRANU, NM2, TRANL 
NM1 =8H GRID = 

NM2=8H MRP = 

WRITE (N4,30) NM1 .GRID, NM2, MRP 
NM1 =8H XIA = 

NM2=8H XIB = 

WRITE ( N4 , 50 ) NM1 ,XIA, NM2,XIB 
NM1 =8H XIC = 

WRITE ( N4 , 80 ) NM1.XIC 
WRITE (N4,60) 

RETURN 

10 FORMAT (1H1/15X.10H SUBSONIC , A8 , A9 , 3HRUNI5 , 1 7XA1 0///37X , 1 2HTAPE7 
1 1NPUT /) 

20 FORMAT (/1 7X, A8,2X, 14, 1 1X1 H;1 2XA8, 2X, 14) 

30 FORMAT (/I 7X, A8,F6.2,1 1X1H;1 2XA8.2X, 14) 

40 FORMAT (/1 7X, A8, F6.2, 1 1X1 H;1 2XA8, F6. 2) 

50 FORMAT (/9XA8.F6.3.2H , F6. 3, 1 1X1 H;4XA8, F6. 3,2H ,F6.3) 

60 FORMAT ( 1 HO) 

70 FORMAT (/1 7X, A8, F7. 3, 10X1 H;1 2XA8, 1X,E8. 2) 
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80 FORMAT (/27X,A8,F6.3,2H ,F6.3) 
END 


SUBROUTINE READQS 

C SCALES AND STORES THE INPUT SPEED DISTRIBUTION 

COMMON /I/ NP,KBM,MODE, NF, NN,MM,NI,NX, IS,KC, LBM, JJ,KK, NB, NC,MRP,NJ 
1 ,KF, NBPS, NFC.NRN, NPTS, NT, IPLT, LOFF.KP, NOSE, NCAS 
COMMON /2/ PI.TP.GRID.TOL 
COMPLEX XIA.XIB.XIC.DZ 

COMMON /3/ R, R1 , R2 , RATC, PHMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB, VA, VB,UC, 
1 VC , TRANU , TRANL , CONE , CTWO , CTHR, EP , RN, SO , THNOS , DZ 
COMMON /G/ N1 , N3,N4, N7,M1 

COMMON SX(300) ,QI(300) ,SI(300) , E( 300) ,G(300) ,A(300) ,B(300) ,C(300) , 
1 D(300) , ES(600) ,Q(600) ,PHI(600) , FP(600) , FPP(600) , FPPP(600) 

DATA KK/0/.NINMAX/300/ 

READ (N3.130) NIN 
IF (NIN.LT.O) KK-1 

C NIN.LT.O IF EXPONENTIAL SPLINE IS USED 
NIN=IABS(NIN) 

IF (NIN.GT.NINMAX) GO TO 110 
C INPUT SPEED DISTRIBUTION IS FIRST PAGE OF OUTPUT 
IF (KK.EQ.O) GO TO 30 
DO 10 J-1 ,NIN 

10 READ (N3.140) SX(J),QI(J),E(J),G(J) 

ARCL=SX(NIN)-SX( 1 ) 

FAC=2 . /ARCL 
CONST=-FAC*SX( 1 ) 

WRITE (N4.160) 

si(i)-o. 

DO 20 J=2, NIN 

SI( J) =FAC*SX( J) +CONST 

20 WRITE (N4.170) J-1 , SX( J-1 ) ,SI( J-1 ) ,QI( J-1 ) , E( J-1 ) ,G( J-1 ) 

WRITE (N4.170) NIN, SX(NIN) , SI(NIN) ,QI(NIN) 

GO TO 60 

30 DO 40 J=1 ,NIN 

40 READ (N3.140) SX(J),QI(J) 

ARCL=SX(NIN)-SX( 1 ) 

FAC =2 . /ARCL 
CONST=-FAC*SX( 1 ) 

WRITE (N4.150) 

DO 50 J=1 ,NIN 
SI( J) =FAC*SX( J) +CQNST 
50 WRITE (N4, 1 80) J,SX( J) ,SI( J) ,QI( J) 

60 SI(NIN) =2. 

WRITE ( N1 ) NRN, NIN, (SI( J) ,QI( J) , J=1 , NIN) 
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DS=(SI(NIN)-SI( 1 ) )/FL0AT(NPTS-1 ) 

C FIND Q(S) AT EVENLY SPACED POINTS 
ES( 1 ) =SI( 1 ) 

DO 70 J=2, NPTS 
70 ES(J)=ES( J-D+DS 
ES( NPTS) =SI(NIN) 

IF (KK.EQ.O) GO TO 80 

CALL SPTEN (NIN,SI,QI, E,G, A, B,C,D,3,0. ,3,0. ) 

CALL INTEN ( NPTS, ES,Q,NIN, SI, A, B.C.D, E,G) 

GO TO 90 

80 CALL SPLIF (NIN,SI,QI,FP,FPP,FPPP,3,0.,3,0.) 

CALL INTPL ( NPTS, ES,Q, SI,QI, FP, FPP, FPPP) 

C INTEGRATE Q(S) TO GET PHI(S) 

90 CALL SPLIF (NPTS, ES,Q, FP, FPP, PHI, -3,0. ,3,0.) 

GAM=PHI(NPTS) 

C SPLINE FIT Q AS A FUNCTION OF S 

CALL SPLIF (NPTS, ES,Q,FP, FPP, FPPP, 3,0., 3,0.) 

C FIND S WHERE Q VANISHES 

CALL INTPLI (1 ,S0,0., NPTS, ES.Q.FP, FPP, FPPP) 

C SPLINE FIT PHI AS A FUNCTION OF S 

CALL SPLIF (NPTS, ES, PHI, FP, FPP, FPPP, 3,0. ,3,0.) 

C FIND MINIMUM VALUE OF PHI 

CALL INTPL (1 ,SO,PHMN,ES, PHI, FP,FPP, FPPP) 

C FIND MONOTONIC PHI 
DO 1 00 1=1 , NPTS 
VAL=AMAX1 (0.,PHI(I)-PHMN) 

100 PHI( I) =SIGN( SQRT( VAL) , ES( I) -SO) 

WRITE ( N1 ) NPTS, SO, PHMN, GAM, (ES( J) ,Q( J) , PHI( J) , J=1 , NPTS) 

RETURN 

110 WRITE (NM, 120) NINMAX 
CALL EXIT 

120 FORMAT ( 1 5H0****M0RE THAN , I4.30H INPUT CARDS NOT PERMITTED****/32 
1 HO***PROGRAM STOPPED IN READQS***) 

130 FORMAT (15) 

140 FORMAT (4E20.8) 

150 FORMAT ( 1H3/21 X,4HCARD,5X,7HS-INPUT,6X,6HS-USED,5X,7HQ-INPUT/) 

160 FORMAT (1K)/1 1X,4HCARD,5X,7HS-INPUT,5X,6HS-USED,5X,7HQ-INPUT,9X,1H 
1 E, 9X.1HG) 

170 FORMAT (6X, 19, 5 FI 2.6) 

180 FORMAT ( 16X, I9.5F1 2.6) 

END 


SUBROUTINE PHI INC 

C CALCULATES POTENTIAL PHII IN ELLIPSE FUn INCOMPRESSIBLE FLOW 

COMMON /I/ NP,KBM,MODE,NF,NN,MM,NI,NX, IS,KC, LBM, JJ,KK,NB,NC,MRP,NJ 
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1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF, KP, NOSE, NCAS 
COMMON /2/ PI, TP, GRID, TOL 
COMPLEX XIA,XIB,XIC,DZ 

COMMON /3/ R, R1 , R2, RATC, PHMN, GAM,WTAIL,XIA,XIB,XIC,UA,UB, VA, VB.UC, 
1 VC , TRANU , TRANL, CONE, CTWO , CTHR, EP, RN, SO , THNOS, DZ 
COMMON /G/ N1 ,N3,N4,N7,M1 
COMPLEX CLOG, ROT, FAC1.FAC2 
COMPLEX BP, XI 

COMMON BP(65) ,XI(130) ,F1 (130) ,F2(130),F3(130) ,BD1 (130),BD2(130) ,BD 
13(1 30) , BD4( 1 30) , FINK 1 30) , ATRAN( 1 30) , TT( 1 30) , FP( 1 30) , FPP( 130), FPPP 
2(130) ,GP(130) ,GPP(130) ,GPPP(130) , HP(130) ,KPP( 1 30) ,HPPP(130) ,ARG(13 
30) , PHII( 1 30) 

DARG=TP/FLOAT(NF) 

KN=NT-NOSE 
CF=GAM/TP 
DO 1 0 J=1 , NT 

ARG( J) =FLOAT( J-1 ) *DARG-PI 
1 0 XI( J) =CMPLX( R1 *COS( ARG( J) ) , R2*SIN( ARG( J) ) ) 

ARG( NT) =PI 

C FIND SINGULAR TERMS 

C LOGARITHM HAS BRANCH CUT ALONG NEGATIVE REAL AXIS 
ROT=CMPLX(0 . , TOL) 

ROT=CEXP(ROT) 

FAC1 =-CONJG(XI( 1 )-XIA) *ROT/CABS(CONJG(XI( 1 )-XIA) ) 

IF (CABS(XIB-XIA) . LT. TOL) GO TO 30 
FAC2=-C0NJG(XI( 1 )-XIB)*ROT/CABS(CONJG(XI( 1 )-XIB) ) 

DO 20 J-1 ,NF 

ROT=CLOG( (XI( J)-XIB) *FAC2) 

BD4( J) =AIMAG(ROT) 

BD3( J) =REAL( ROT) 

ROT=CLOG( (XI( J)-XIA) *FAC1 ) 

BD2( J) =AIMAG(ROT) -BD4 ( J) 

20 BD1 ( J)=REAL(R0T)-BD3( J) 

GO TO 50 
30 DO 40 J=1 , NF 

ROT-1. /(XI(J)-XIA) 

BD1 ( J)=REAL(ROT) 

BD2( J) =AIMAG(ROT) 

ROT=CLOG( (XI( J)-XIA)*FAC1 ) 

BD3( J) =REAL( ROT) 

40 BD4( J) =AIMAG( ROT) 

C FIND REGULAR TERMS 

50 CALL RING (NF.BD1 , FI ,BP,R) 

CALL RING (NF, BD2, F2 , BP, R) 

CALL RING (NF,BD3,.-3,BP,R) 

DO 60 J=1 ,NF 

FI ( J) =-BD2( J) +F1 (J) 

F2(J) -BD1 ( J) +F2( J) 

60 F3(J)=BD4(J)-F3(J) 

FI (NT) -FI ( 1 ) 

F2(NT) =F2( 1 ) 

F3( NT) =F3( 1 ) + TP 
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C FIND REGULAR COEFFICIENTS OF F.u.± 

CALL PSPLIF (NT, ARG, FI , FP, FPP, FPPP, FINT) 

CALL PSPLIF (NT, ARG, F2.GP, GPP, GPPP, FINT) 

CALL PSPLIF ( NT, ARG, F3 , BD1 , BD2 , BD3 , FINT) 

Cl =FP(KN) 

C2=GP(KN) 

C3=BD1(KN) 

WTAIL=THNOS-PI 

C ITERATE AT MOST 20 TIMES TO FIND TAIL 

WELL=-PHMN 
DO 90 K=1 , 20 

CALL INTPL (1 ,WTAIL,CC1 , ARG, FI , FP, FPP, FPPP) 

CALL INTPL (1 ,WTAIL,CC2, ARG, F2.GP.GPP, GPPP) 

CALL INTPL (1 ,WTAIL,CC3,ARG,F3,BD1 ,BD2,BD3) 

CC1-CC1-F1 (KN) 

CC2=CC2-F2(KN) 

CC3=CC3~F3(KN) 

DET=1 ./(C2*CC1-CC2*C1) 

AF=DET* ( CF*C3 *CC2-CF*C2 *CC3 +C2 *WELL) 

BF= DET* ( - CF*C3 *CC1 +CF*C1 *CC3-C1 *WELL) 

DO 70 J-1 ,NT 
FINT( J) =0. 

70 TT( J) =AF#FP( J) +BF*GP( J) +CF*BD1 ( J) 

CALL SPLIF (NT, ARG, TT, HP, HPP, HPPP, 3»0. ,3,0. ) 

W0LD=WTAIL 

NS=-NF 

CALL INTPLI ( NS, ATRAN, FINT, NT, ARG, TT, HP, HPP, HPPP) 
WTAIL=ATRAN( 1 ) 

IF (NS.LE.1) GO TO 90 
DO 80 LL=2 , NS 

80 IF (ABS(ATRAN(LL)-WOLD).LT.ABS(WTAIL-WOLD)) WTAIL=ATRAN( LL) 
90 IF ( ABS( WTAIL-WOLD) . LT. TOL) GO TO 100 
WRITE (N4.120) 

100 C0NST=AF*F1 (KN) +BF*F2(KN) +CF*F3(KN)-GAM 
DO 110 J-1 , NT 

110 PHII(J)=AF*F1 ( J) +BF*F2( J) +CF*F3( J)-CONST 
WRITE ( N1 ) NT, ( PHII( J) , J=1 , NT) 

RETURN 

120 FORMAT (37H ITERATION FOR WTAIL DID NOT CONVERGE) 

END 


SUBROUTINE CYCLQ (ITER) 

C FINDS MAP FUNCTION FROM ELLIPSE TO HODOGRAPH PUNE 

COMMON /I/ NP,KBM,MODE, NF, NN,MM, NI, NX, IS,KC, LBM, JJ,KK,NB, NC.MRP, NJ 
1 ,KF, NBPS,NFC,NRN, NPTS.NT, IPLT, LOFF,KP,NOSE,NCAS 
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COMMON /2/ PI, TP,GRID, TOL 
COMPLEX XIA,XIB,XIC,DZ 

COMMON /3/ R,R1 ,R2,RATC,PHMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB,VA,VB,UC, 
1 VC , TRANU , TRANL , CONE , CTWO , CTHR, EP, RN, SO, THNOS, DZ 
COMPLEX ROOT, ROOT1 
COMMON /5/ ROOT.ROOT1 
COMPLEX BP, ETJ 
COMMON /8/ BP(65),ETJ(65) 

REAL MACH 

COMMON /A/ GAMMA, MACH, RHOINF, EMU.QSTRSQ 
COMMON /G/ N1 , N3 , N4 , N7 ,M1 
COMPLEX H, HP, ROT 
COMPLEX XI 

COMMON XI(130),AX(130) ,SS( 130) ,QI( 1 30) ,QLG( 1 30) , PHII( 1 30) , FP(600) , 
1 FPP(600) , FPPP(600) ,QP(600) ,QPP(600) ,QPPP(600) , ES(600) ,Q(600) , PHI(6 
200) 

DIMENSION Q0LD(1 30) 

ROOT! =( 1 . ,0 . ) 

IF ( ITER.GT. 1 ) GO TO 10 
DT=TP/FLOAT( NF) 

KN=NT-NOSE 

KNP=KN+1 

KNPP=KN+2 

IF (KNP.GT.NF) KNP=KNP-NF 
IF (KNPP.GT. NF) KNPP=KNPP-NF 
KNM=KN-1 
KNMM=KN-2 

IF (KN.GT.NF) KN=KN-NF 
GAMP=(GAMMA+1 . )/2. 

GAMM= (GAMMA-1 ,)/2. 

EMUSQ= GAMM/ GAMP 
GAM2=GAM/2. 

QSTRSQ=EMUSQ+1 . /(GAMP*MACH*MACH) 

10 REWIND N1 
READ (N1 ) 

READ (N1 ) NPTS, SO, PHMN,GAM, ( ES( J) ,Q( J) , PHI( J) , J=1 , NPTS) 

READ (N1 ) NT, ( PHII( J) , J=1 , NT) 

C SPLINE FIT Q AS A FUNCTION OF S 

CALL SPLIF (NPTS, ES,Q,QP,QPP,QPPP, 3,0., 3,0.) 

C SPLINE FIT Q AS A FUNCTION OF PHI 

CALL SPLIF (NPTS, PHI, Q,FP,FPP,FPPP, 3,0. ,3,0.) 

C PHII IS THE GUESS FOR PHI AT EVENLY SPACED POINTS IN THE RING 
DO 20 J=1 , NT 
SS( J) =FLOAT( J-1 ) *DT-PI 
XI( J) =CMPLX( R1 *COS( SS( J) ) , R2*SIN( SS( J) ) ) 

FAC=SIGN( 1 . ,WTAIL-SS( J) ) 

VAL=AMAX1 (0.,PHII( J)-(1 .-FAC)*GAM2) 

IF (SS(J).GT. THNOS) FAC=1 . 

AX( J) =FAC*SQRT( VAL) 

C COMPUTE SPEED QI AT POINTS ON THE ELLIPSE 

CALL INTPL (1 ,AX( J) ,QI( J) , PHI,Q, FP, FPP, FPPP) 

20 CONTINUE 
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IF (RATC.NE.O. ) GO TO 30 
C FIND DQ/DW AT THE STAGNATION POINT 
ROT=XI(KNP)/XI(KNM) 

DW=ATAN2( AIMAG(ROT) , REAL( ROT) ) 
DQDW=EP*(QI(KNP)-QI(KNM) )/DW 
CALL GETHSQ ( (0. ,0. ) , H, HP) 

RATC=1 .-3./(ABS(DQDW)*SQRT(REAL(HP))) 

C GET COMPRESSIBLE ANALOG FOR LOG(Q) 

30 DO 40 J=1 , NF 

IF (J.EQ.KN) GO TO 40 
QHOLD=QI( J) 

IF (ITER.EQ.1) GO TO 35 
RFAC=0. 

IF ( ( J. EQ.KNP) .OR. ( J. EQ.KNM) ) RFAC=-.7 - 
AX( J) =ABS(QI( J)-QOLD( J) ) 

QI( J) =ABS(QI( J) ) +RFAC*AX( J) 

. 35 QOLD( J)=QHOLD 

CALL GETHSQ (CMPLX(QI( J) *QI( J) ,0.) ,H,HP) 

ROT=(XI( J)-XI(KN) )/( RATC*XI( J)-XI(KN) ) 

RP=REAL(ROT) 

AIMP=AIMAG(ROT) 

FAC=RP*RP+AIMP*AIMP 
HIMG=ABS( AIMAG( H) ) **CTWO 
HAB=CABS( H) +HIMG*CONE 
QLG( J) =. 5*AL0G( HAB/FAC) 

40 CONTINUE 

QLG(KN) =QLG(KNP) +QLG(KNM)- .5*(QLG(KNPP) +QLG(KNMM) ) 
C COMPUTE THE COEFFICIENTS FOR THE MAPPING FUNCTION 
CALL RING (NF.QLG.QP, BP, R) 

BP( 1 ) =CMPLX( REAL( BP( 1 ) ) , 0 . ) 

C BP IS FILTERED IN SUBROUTINE RING 
RETURN 
El© 


-SUBROUTINE INIT (XI,ETA,U,V) 

CONSTRUCTS THE PATH FROM XIA TO XIB TO XIC AND 
FINDS VELOCITY AT XIA AND XIB FRCM MAP FUNCTION 
COMPLEX S, H, SFROMX , XI( 1 ) , ETA( 1 ) , U( 1 ) , V( 1 ) 

COMMON /I/ NP,KBM,MODE, NF, NN.MM, NI, NX, IS,KC, LBM, JJ, KK, NB, NC,MRP, NJ 
1 ,KF, NBPS, NFC.NRN, NPTS, NT, IPLT, LOFF,KP,NQSE,NCAS 
COMMON /2/ PI, TP,GRID, TOL 
COMPLEX XIA,XIB,XIC,DZ 

COMMON /3/ R, R1 , R2 , RATC, PHMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB, VA, VB.UC, 
1 VC , TRANU , TRANL , CONE , CTWO , CTH R , EP , RN , SO , THNOS , DZ 
COMPLEX ROOT , R00T1 
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COMMON /5/ ROOT, ROOT1 
REAL MACHA,MACHB 

COMMON HI MACHA.MACHB, ANGLA, ANGLB 
REAL MACH 

COMMON /A/ GAMMA, MACH, RHOINF, EMU,QSTRSQ 
C INITIALIZE BRANCH OF COMPLEX SQUARE ROOT 
ROOT=(0. ,1 .) 

ROOT1 =(1 .,0.) 

RAD=PI/1 80. 

GAMM= (GAMMA-1 . )/2. 

C0SQ=1 . /(MACH*MACH) +GAMM 

C LAY DOWN PATH FROM XIA TO XIB TO XIC IN XI-PLANE 
XI ( 1 ) =XIA 

C COMPUTE THE NUMBER OF POINTS FROM XIA TO XIB 
MM=CABS(XIA-XIB)/GRID+1 .-TOL 
MM=MM*MRP 
NB=MM+1 

IF (NB.EQ.1) GO TO 20 
H= ( XIB-XIA) /FLOAT( MM ) 

C LAY DOWN GRID TO XIB 
DO 10 L=2, NB 
10 XI(L) =XI(L-1 )+H 
C CONSTRUCT PATH FROM XIB TO XIC 
20 MM=CABS(XIC-XIB)/GRID+1 .-TOL 
MM=MM*MRP*2 
NC=NB+MM 

H=(XIC~XIB) /FLOAT(MM) 

NBP=NB+1 
DO 30 L=NBP, NC 
30 XI(L)=XI(L-1 )+H 

C LAY DOWN REFLECTED GRID IN THE ETA-PLANE 
DO 40 L=1 , NC 
40 ETA( L) =CONJG(XI( L) ) 

C FIND MACH NUMBER AND ANGLE AT INLET 
S=SFRQMX(XIB) 

U( NB) =1 . 

V(NB) =0 . 

CALL GETUV (S.CONJG(S) ,U(NB) , V( NB) ) 

UB=REAL(U(NB) ) 

VB=REAL( V( NB) ) 

QSB=UB*UB+VB*VB 

MACHB = SQRT (QSB/(COSQ- GAMM* QSB ) ) 

ANGLB = ATAN2 ( VB , UB) / RAD 
C FIND MACH NUMBER AND ANGLE AT EXIT 
U( 1 ) =1 - 
V( 1 ) =0. 

S=SFROMX(XIA) 

CALL GETUV (S,CONJG(S) ,U(1 ) ,V(1 ) ) 

UA=REAL(U(1)) 

VA=REAL( V(1)) 

QSA=UA*UA+VA*VA 

MACHA= SQRT ( QSA/ (COSQ-GAMM*QSA) ) 
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ANGLA=ATAN2( V A, UA) /RAD 
C INITIALIZE AT XIC 
U(NC) =1 . 

V(NC)=0. 

S= SFRCMX ( XIC ) 

CALL GETUV ( S,CONJG(S) ,U(NC) , V( NC) ) 
UC=REAL(U(NC) ) 

VC=REAL(¥(NC) ) 

RETURN 

END 


SUBROUTINE GTPATH (XI.K1 ,K2) 

C SETS UP SUBSONIC PATHS IN COMPLEX CHARACTERISTIC PLANES 

COMMON /!/ NP,KBM,MODE, NF, NN,MM,NI, NX, IS,KC, LBM, JJ,KK, NB, NC.MRP, NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF,KP,NOSE,NCAS 
COMMON /2/ PI, TP,GRID,TOL 
COMPLEX XIA,XIB,XIC,DZ 

COMMON /3/ R, R1 , R2 , RATC, PHMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB, VA, VB.UC, 
1 VC , TRANU, TRANL, CONE, CTWO , CTHR, EP, RN, SO, THNOS, DZ 
REAL MACH 

COMMON /A/ GAMMA , MACH , RHOINF , EMJ , QSTRSQ 
COMMON /G/ N1 , N3, N4, N7.M1 
COMPLEX H, POINT, S, SFRCMX ,XI(1) 

COMPLEX SIG.XIOFS 
DATA K2MAX/0/ 

QCRIT=( GAMMA- 1 . )/(GAMMA+1 . ) +2. /( (GAMMA+1 . ) *MACH*MACH) 

CALL GETHSQ (CMPLX(QCRIT,0. ) ,H,POINT) 

SCRIT=REAL(H) 

PIX=TP/FLOAT( NP) 

PIX2=PIX/2. 

TH= THNOS - TP - P 1X2 + FLOAT ( MO DE- 1 ) *PIX 
C KC NEGATIVE IF WE ARE CONSTRUCTING SECOND TRANSONIC PATH 
IF (KC.GT.O) TH=TH+PIX 
FAC=1 . 

IF (KC.GT.O) FAC=-1 . 

TH1 =TH 

TH2 =TH+FAC*PIX 

CALL PATH ( XI , R, TH1 , TH2 , K1 , K2) 

C CHECK TO SEE IF WE HAVE CROSSED THE SONIC LINE 
DO 10 J=KK,K2 
S=SFROMX(XI( J) ) 

10 IF (REAL( S) *REAL( S) +AIMAG(S) *AIMAG(S) .GE. SCRIT) GO TO 20 
GO TO 40 

C REFLECT POINT ACROSS THE SONIC LINE 

20 POINT=XIOFS(CONJG(SCRIT/SFROMX(XI( J) )) ,XI( J) ) 



- 118 - 


POINT=SIG( POINT) 

KC=1 

C ROTATE POINT TO AVOID SONIC SURFACE 
RAD=CABS( POINT) 

THF=ATAIC( AIMAG( POINT) , REAL( POINT) ) 

SCL=RAD*RAD/(R*R) 

RAD=1 .+SCL*( RAD-1 .) 

THF=THF-.1*FAC/SCL 
IF (ABS(TH) .GE.2.) GO TO 30 
FAC2=ABS(THF)/PI 
THF=THF- . 2*FAC/FAC2 
RAD-1. +.7*FAC2*( RAD- 1.) 

30 IF (ABS(THF-TH).GE.PI) TH=TH+SIGN( TP, THF-TH) 

IF ( FAC*( THF-TH) .GT.O.) GO TO 40 
CALL PATH (XI, RAD, THF, THF,KF,K2) 

CALL PATH (XI.R.TH1 .TH2.K2+1 ,K2) 

40 K2MAX=MAX0 ( K2MAX , K2 ) 

IF (K2.LE.LBM) RETURN 
MSG=1 OHAUTOMATION 
WRITE (N4,50) MSG 
CALL EXIT 

50 FORMAT (////5X5H**** ,A10,23H PATH IS TOO LONG *****) 
END 


SUBROUTINE SUPATH ( JP.XI.K1 ,K2) 

C DETERMINES SUPERSONIC PATHS OF INTEGRATION 

COMMON /I / NP,KBM,MODE, NF, NN,MM,NI, NX, IS,KC, LBM, JJ,KK,NB, NC,MRP, NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF, KP, NOSE, NCAS 
COMMON /2/ PI, TP,GRID,TOL 
COMPLEX XIA,XIB,XIC ,DZ 

COMMON /3/ R,R1 ,R2,RATC,PHMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB,VA,VB,UC, 
1 VC , TRANU , TRANL, CONE, CTWO , CTHR, EP, RN, SO, THNOS, DZ 
REAL MACH 

COMMON /A/ GAMMA , MACH , RHOINF , EMU , QSTRSQ 
COMMON /G/ N1 ,N3,N4,N7,M1 
COMPLEX POINT, H, S, SFROMX.XIOFS, XI 
DIMENSION XI( 1 ) 

IF (KC.EQ.O) GO TO 30 
C GET SECOND SUPERSONIC PATH 

RAD=CABS(CMPLX(R1 *COS(THF) ,R2*SIN(THF) )) 

FAC-AMIN1 ( RAD/R1 , ( . 96*R-1 . )/(R-1 . ) ) 

FAC=1 . +FAC*(R-1 . ) 

CALL PATH (XI, FAC,THF-.07, THF-.07.K1 ,K2) 

IF (ABS(THF-THL).LT. .30) GO TO 1C 

C SUPERSONIC PATH LIES ON ELLIPSE BOUNDARY TO AVOID SONIC SURFACE 
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CALL PATH (XI,1.04*R,THF-.04,THF+.12,K2+1 ,K2) 

CALL PATH (XI, R, THF+. 16, THL-. 1 2,K2+1 ,K2) 

CALL PATH (XI, 1 .04*R,THL-.08,THL-.04,K2+1 ,.K2) 

GO TO 20 

10 CALL PATH (XI, 1 .04*R, THF-.04, THL- .04 ,K2+1 ,K2) 

20 CALL PATH (XI, R,THL,THF,K2+1 ,K2) 

GO TO 170 
30 CONTINUE 

IF (JP.NE.1) GO TO 40 
IM=TP/.04+1 .-TOL 
DT=TP/FLOAT( IM) 

QCRIT=(GAMMA-1 .)/(GAMMA+1 . ) +2. /( (GAMMA+1 . ) *MACH*MACH) 
CALL GETHSQ (CMPLX(QCRIT,0. ), H, POINT) 

SCRIT=REAL( H) 

THFO=WTAIL 

L2-1 

SOLD=TOL 
40 DTHF=-DT 
DTHL=-DT 
THF=THFO 

C CHECK FOR SUPERSONIC POINT 

DO 50 L=L2, IM 

P0INT=CMPLX(R1 *COS(THF) , R2*SIN( THF) ) 

S=SFROMX( POINT) 

SNEW=REAL( S) *REAL( S) +AIMAG(S) *AIMAG( S) 

IF (SNEW.GT.SCRIT) GO TO 60 
SOLD* SNEW 
50 THF=THF+DT 
K2=0 
RETURN 

C PERFORM NEWTON ITERATION TO FIND SONIC POINT 

60 L2 = L+1 
THL=THF 
SLA5=SNEW 
DO 70 IC0UNT=1 ,20 

DTHF= -DTHF* ( SNEW-SCRIT ) / ( SNEW- SOLD ) 

IF (DTHF. LT.TOL) GO TO 90 
THF=THF-DTHF 

S-SFRCMX(CMPLX(R1 *COS( THF) , R2*SIN( THF) ) ) 

SOLD=SNEW 

SNEW=REAL( S) *REAL( S) + AIMAG( S) *AIMAG( S) 

70 IF ( ABS( SNEW-SCRIT) . GT. ABS( SOLD-SCRIT) ) GO TO 80 
80 WRITE (N4.200) 

C SEARCH FOR SUBSONIC POINT 
SOLD=SLAS 
90 DO 100 L=L2 , IM 
THL=THL+DT 

P0INT=CMPLX(R1 *COS( THL) ,R2*SIN( THL) ) 

S=SFRCMX( POINT) 

SNEW=R£AL( S) *REAL( S) +AIMAG( S) *AIMAG( S) 

IF (SNEW. LT.SCRIT) GO TO 1 1 0 
100 SOLD = SNEW 
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WRITE (N4,21 0) 

CALL EXIT 

C FIND SONIC POINT 
110 L2=L 

THFO=THL+DT 

DO 120 ICOUNT-1,20 

DT HL= -DTHL*( SNEW- SCR IT ) / ( SNEW- SOLD ) 

IF (DTHL.LT.TOL) GO TO 1 40 

THL=THL-DTHL 

SOLD=SNEW 

S=SFRCMX(CMPLX(R1 *COS(THL) , R2*SIN(THL) ) ) 

3NEW=REAL( S) *R£AL( S) +AIMAG( S) *AIMAG( S) 

120 IF (ABS(SNEW-SCRIT).GT.ABS(SOLD-SCRIT)) GO TO 1 30 
130 WRITE (N4,200) 

140 CONTINUE 

C CONSTRUCT SUPERSONIC PATH IN XI-PLANE 

RAD=CA6S(CMPLX( R1 *COS(THL) , R2*SIN(THL) ) ) 

FAC=AMIN1 (RAD/R1 , ( .96*R-1 . )/(R-1 . ) ) 

FAC=1 . +FAC*(R-1 . ) 

CALL PATH ( XI , FAC , THL+ . 07 , THL+ . 07 , K1 , K2) 

IF (ABS(THF-THL) .LT. .30) GO TO 1 50 

CALL PATH (XI, 1 .04*R, THL+.04, THL-.08.K2+1 ,K2) 

CALL PATH (XI,R,THL-.12,THF+.l6,K2+1,K2) 

CALL PATH (XI, 1 ,04*R, THF+. 1 2, THF+.04 ,K2+1 ,K2) 

GO TO 160 

150 CALL PATH (XI, 1 . 04*R, THL+.04 , THF+.04,K2+1 ,K2) 

160 CALL PATH (XI, R, THF, THL,K2+1 ,K2) 

JJ=KX 

KC-1 

WRITE (N1) THF, THL 
170 CONTINUE 

C PASTE POINTS TO THE SONIC LOCUS 
KN=KK + 1 

DO 160 J=KN,K2 
S-SFRGMX(XKJ)) 

ABSSQ=REAL( S) *REAL( S) +AIMAG(S) *AIMAG( S) 

XI( J)=XIOFS(S*SQRT(SCRIT/ABSSQ) ,XI( J-1 ) ) 

180 CONTINUE 

IF (K2. LE. 3*L3M) RETURN . . 

MSG-1 OHSUPERSONIC 
WRITE (N4.190) MSG 
CALL EXIT 

190 FORMAT (////5X5H**** ,A10,23H PATH IS TOO LONG *****) 

200 FORMAT (///I 2X48H****NEWTON ITERATION FOR SONIC POINT DID NOT CON, 
112HRGE ’WELL****) 

210 FORMAT ( ///28H**SUPERSCNIC SPEEDS AT TAIL. ,29H CHANGE SPEED DISTRI 
1BUTI0N** ) 

END 
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SUBROUTINE PATH (XI, RAD.TH1 ,TH2,K1 , LL) 

CONSTRUCTS PATHS OF INTEGRATION 

ENDPOINTS OF PATH ARE ENTERED AS VARIABLES IN THE RING 
XIF IS THE POINT IN THE ELLIPSE HAVING RADIUS RAD AND ARGU- 
MENT TH1 IN THE RING 

PATH IS CONSTRUCTED FROM XIC AROUND XIB AND THEN TO XIF 
IF PATH COMES, TOO CLOSE TO XIA IT IS REPLACE BY A PAIR OF 
PATHS 

IF TH1 IS NOT EQUAL TO TH2 PATH CONTINUES IN ELLIPSE AND 
CORRESPONDS TO CIRCULAR ARC IN RING PLANE OF RADIUS RAD 
FROM TH1 TO TH2 

CARE IS TAKEN TO AVOID CROSSING THE BRANCH CUT FROM XIA TO XIB 
COMMON /I/ NP,KBM,MODE, NF, NN,MM,NI, NX, IS,KC, LBM, JJ,KK, NB,NC ,MRP, NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF, KP , NOSE, NCAS 
COMMON /2/ PI, TP, GRID, TOL 
COMPLEX XIA, XIB, XIC, DZ 

COMMON /3/ R , R1 , R2 , RATC , PHMN , GAM , WTAIL , XIA , XIB , XIC , UA, UB , VA, VB, UC , 
1 VC , TRANU , TRANL, CONE, CTWO , CTHR, EP, RN, SO , THNOS, DZ 
COMMON /G/ N1 , N3 , N4 , N7 ,M1 
COMPLEX XI( 1 ) , ARC.DXI, ARC1 , PI , XIF, ROT 
DATA ISW/O/ 

DATA ALPH/O./ 

IF (NB.EQ.1) GO TO 10 
IF (ISW.NE.O) GO TO 10 

ARC1 =CONJG(XIB-XIA) *(XIC-XIB) /CABS(XIB-XIA) 

ALPH=ATAN2( AIMAG( ARC1 ) , REAL( ARC1 ) ) 

ISW-1 

10 RA=.5*(RAD+1 . /RAD) 

RI=.5*( RAD-1 ./RAD) 

LL=K1 -1 
PI =XI( LL) 

XIF=CMPLX(RA*COS( TH1 ) , RI*SIN( TH1 ) ) 

C CHECK THAT XIF IS OUTSIDE OF CIRCLE AROUND XIB 
SCF=CABS( ( XIB-XIF) / (XIB-XIC ) ) 

IF (SCF.LT.1.) XIF=XIB+1 .2*(XIF-XIB)/SCF 

IF (LL.NE.NC) GO TO 30 

KF=NC+1 

C CONSTRUCT CIRCLE AROUND XIB 
ARC=XIB-XIA 

IF (NB.EQ.1)' ARC=XIC-XIB 

ARC1 =CONJG(XIF-XIB) * ARC/C ABS(XIF-XIB) . 

ARG=ATAN2 ( AIMAG( ARC1 ) , RE AL( ARC1 ) ) 

IF ( ABS(ARG) .GT. 3. ) ARG=SIGN(3- , ARG) 

ARG=ARG+ALPH 
IX=ABS( ARG) *32. /TP 
IF (IX.EQ.O) GO TO 30 
DT=-ARG/FLOAT( IX*MRP) 
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ROT=CMPLX(COS(DT) , SIN(DT) ) 

LL=LL+IX*MRP 
DO 20 J=K1 ,LL 

20 XI(J)=XIB+(XI(J-1)-XIB)*RCT 
PI =XI(LL) 

KF=LL+1 
30 K1 =LL+1 

C CONSTRUCT PATH FROM PI TO XIF 
ARC=XIF-P1 
SCL=CABS( ARC ) 

IX=SCL/GRID+1 . -TOL 
DXI=ARC/FLOAT( IX*MRP) 

LL=LL+MRP*IX 

GRID2=GRID/2. 

DO 40 J=K1 , LL 
XI (J) =XI( J-D+DXI 

40 IF (CABS(XI( J)-XIA) .LT.GRID) GO TO 50 
GO TO 80 

C PATH WILL CONSIST OF TWO ARCS TO AVOID XIA 
50 LL=LL-MRP*IX 

ARC1 =(XI( J)-XIA) *CONJG(XIB-XIA) 

ARG=ATAN2 ( AIMAG( ARC1 ) , REAL( ARC1 ) ) 

FAC=SIGN( 1 . , ARG) 

ARC1 =FAC*CMPLX(0 . , 1 . ) 

PI =XIB+. 8*(XIA-XIB) 

PI =P1 +GRID*ARC1 *( XIB-XIA) / CABS( XIB-XIA) 
ARC=P1 -XI(LL) 

3CL=CABS( ARC) 

IX=SCL/GRID+1 .-TOL 
DXI=ARC/FLOAT( IX*MRP) 

LL=LL+MRP*IX 
DO 60 J=K1 , LL 
60 XI( J) =XI( J- 1 ) +DXI 
K1 =LL+1 

ARC=XIF-XI( LL) 

SCL=CABS( ARC) 

IX=SCL/GRID+1 . -TOL 
DXI=ARC/FLOAT( IX*MRP) 

LL=LL+MRP*IX 
DO 70 J=K1 ,LL 
70 XI( J) =XI( J-1 ) +DXI 
80 IF ( ABS(TH2-TH1 ) .LT.TOL) RETURN 
C CONSTRUCT PATHS AROUND THE ELLIPSE 
KK=LL 
K1 =LL+1 

IX=R1 *TP/(GRID*FLOAT( NF) )-TOL 
IX=MRP*(IX+1 ) *NF/NP 
IF (MODE.GT.O) GO TO 90 
IX=RAD*ABS(TH2-TH1 ) /GRID -TOL 
IX=( IX+1 ) *MRP 

90 DTH=(TH2-TH1 )/FLOAT( IX) 

ANG=TH1 
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LL=LL+IX 
DO 100 J-K1.LL 
ANG=ANG+DTH 

100 XI( J)=CMPLX(RA*COS(ANG),RI*SIN(ANG)) 
RETURN 
END 


SUBROUTINE CONST (KS) 

DETERMINES IMAGINARY CONSTANTS OF SINGULAR SOLUTIONS 
KS-1 FOR SUPERSONIC PATHS 

COMMON /I/ NP,KBM,MODE, NF, NN,MM, NI, NX, IS,KC , LBM, JJ,KK, NB, NC.MRP, NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF, KP, NOSE, NCAS 
COMPLEX XIA,XIB,XIC,DZ 

COMMON /3/ R, R1 , R2, RATC, PHMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB, VA, VB,UC, 
1 VC , TRANU , TRANL , CONE , CTWO , CTHR, EP , RN , SO , THNOS , DZ 
COMMON /6/ FAIMGC3) ,FBIMG(3) ,SA3MG(3) ,SBIMG(3) ,XAIMG(3) ,XBIMG(3) ,Y 
1A3MGC3) , YBIMG(3) 

REAL MACH 

COMMON /A/ GAMMA, MACH, RHOINF, EMU.QSTRSQ 
COMPLEX RH1 ,RH2,USIG,VSIG,FA,SA,VEL 

COMPLEX S,SP,X1 ,Y1 ,U, V, LAMDAP, LAMDAM,TAU,RH0SIG,S1 , FI , I 
DATA 1/(0., 1 .)/ 

C FIND LAMBDA AND TAU AT XI-XIA, ETA=CONJG(XIA) 

U=UA 

V=VA 

CALL LAMBDA (U,V, LAMDAP, LAMDAM, TAU,XIA,CONJG(XIA) ,1 ) 

QS A=UA*UA+VA*V A 
RHOA=RHO(QSA) 

C COMPUTE S AND DS/DXI AT XI = XIA 
SP=1 . 

CALL STOFXI (XIA.S.SP) 

IF ( NB. NE. 1 ) GO TO 1 0 
GAMM= ( GAMMA-1 .)/2. 

CS-1 . / (MACH*MACH) +GAMM-GAMM*QSA 
VEL=CMPLX(UA, VA) 

CALL GETHSQ (CMPLX(QSA,0. ) ,USIG, VSIG) 

USIG=CONJG( S) /( 2 . *REAL( VSIG) *VEL) 

VSIG= . 5*I*VEL/C0NJG( S) 

RH0SIG=- ( UA*USIG+VA*VSIG)/CS 
10 DO 80 K-1 ,KS 

IF (KS. EQ. 1 ) GO TO 50 
FAIMG(K)=0 . 

SAIMG(K) =0. 

FBIMG(K) =0 . 

SBIMG(K) =0. 
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GO TO (20,30,40), K 
20 SAIMG(K)=-1 ./AIMAG(TAU) 

GO TO 50 
30 FAIMGOO-1. 

■ GO TO 50 
40 FBIMG(K) =1 . 

50 IF (NB.EQ.1) GO TO 60 
SBIMG(K) =-SAIMG(K) 

IF (KS.EQ.3) FBIMG(K)=FBIMG(K)-FAIMG(K) 

C FIND SINGULAR TERMS FI AND SI AT XI=XIA,ETA=CONJ(XIA) 
60 RH1 =REAL(TAU) 

Rffi=AIMAG(TAU) 

SI -(FAIMG(K)-RHI *SAIMG(K) )/RH2 
FI =RH1 *S1 -RH2*SAIMG(K) 

C GET IMAGINARY CONSTANTS FOR X AND Y 
FA=CMPLX( REAL( FI ) , FAIMG(K) ) 

SA=CMPLX(REAL( SI ) ,SAIMG(K)) 

XI =(UA*FA-VA*(SA/RHOA) )/QSA 
Y1 =(UA*(SA/RHOA) +VA*FA)/QSA 
XAIMG(K) =AIMAG(X1 ) 

YAIMG(K) =AIMAG(Y1 ) 

IF (NB.NE.1 ) GO TO 70 
XX=FBIMG(K)+AIMAG(SP*(USIG*X1 +VSIG*Y1 ) ) 

YY=AIMAG( SP*( ( USIG + UA*RHOSIG) *Y1 - ( VSIG+VA*RHOSIG) *X1 ) ) 
XAIMG(K)=(UA*XX-VA*YY)/QSA 
YAIMG(K) =(UA*YY+VA*XX)/QSA 
C GET IMAGINARY CONSTANTS XBIMG(K) AND YBIMG(K) 

XBIMG(K) =0. 

YBIMG(K)=-1 .E-7 
GO TO 80 

70 QSB=UB*UB+VB*VB 
RHOB=RHO(QSB) 

XBIMG(K)=(UB*FBIMG(K)-VB*(SBIMG(K)/RHOB) )/QSB 
YBIMG(K) =(UB*(SBIMG(K)/RHOB) +VB*FBIMG(K) )/QSB 
80 CONTINUE 
RETURN 
END 


SUBROUTINE SOLVE (K2) 

CONTROL ROUTINE FOR SOLUTION OF CHARACTERISTIC INITIAL 
VALUE PROBLEM. GRID IS TRIANGULAR FOR SUBSONIC FLOW AND 
RECTANGULAR FOR TRANSONIC AND SUPERSONIC FLOW 

COMMON /I / NP,KBM,MODE,NF,NN,MM,NI,NX, IS,KC, LBM, JJ,KK,NB,NC,MRP,NJ 
1 ,KF, I© PS, NFC,NRN, NPTS, NT, IPLT, LOFF,KP,NOSE, NCAS 
COMPLEX XIA,XIB,XIC,DZ 
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COMMON /3/ R, R1 , R2,RATC,PHMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB, VA, VB.UC, 
1 VC , TRANU , TRANL , CONE , CTWO , CTHR, EP , RN, SO , THNOS , DZ 
COMPLEX ROOT , ROOT1 
COMMON /5/ ROOT, ROOT1 

COMPLEX FI , F2 , F3 , SI , S2, S3 , PHI, PSI,U, V, LAMDAP, LAMDAM.TAU.XI, ETA 
COMMON PHI(585, 1 ) , SKA(390) ,PSI(585, 1 ) ,SKB(390) ,XI(585) ,ETA(585) ,U( 
1585) ,V(585) ,F1 (585) ,S1 (585) ,F2(535) ,S2(585) ,F3(585) ,S3(585) .LAMDAP 
2(585) , LAMDAM(585) , TAUC585) 

COMMON /2/ PI, TP, GRID, TOL 

COMMON /6/ FAIMG(3) ,FBIMG(3) ,SAIMG(3) ,SB]MG(3) ,XAIMG(3) ,XBIMG(3) ,Y 
1 AIMG(3) ,YBIMG(3) 

COMMON /G/ N1 ,N3,N4,N7,M1 

COMMON /M/ SINGX, SINGY, SINGXO, SINGYO 

COMPLEX TEMP , R0OT2 

LOFF=-1 

IF (MODE. LE.O) L0FF=0 
K1 =NC+1 
R0OT=(0. , 1 . ) 

C IF IS.GT.3 SINGULAR TERMS HAVE ALL BEEN COMPUTED 
IF (IS.GT.3) GO TO 20 
IF (MODE. LT.O) GO TO 1 0 
C STORE JUMPS FOR USE IN READX 
FJUMP=FAIMG( IS) +FBIMG( IS) 

SJUMP=SAIMG( IS) +SBIMG( IS) 

X JUMP =XA IMG ( IS) +XBIMG( IS) 

YJUMP=YAIMG( IS)+YBIMG( IS) 

WRITE ( N1 ) FJUMP.S JUMP, X JUMP, Y JUMP 
10 K1 =2 

CALL GETFS1 (K2) 

20 IF (IS.GT.3) CALL GETPHI (K2.NX) 

IF (KC.GT.O) GO TO 70 

C SUBSONIC FLOW, TRIANGULAR GRID, CHARACTERISTIC INITIAL PATHS ARE 
C CONJUGATE, SO (XI( J) , ETA(K) )=CONJG(XI(K) ,ETA( J) ) 

DO 60 J-K1 ,K2 

C SET THE BRANCH FOR THE SQUARE ROOT IN LAMDA+ AND LAMDA- 
R00T=(0. , 1 . ) 

C GET VALUES OF FUNCTIONS AT XI (J) ,ETA( J-1 ) BY REFLECTION 
U( J-1 )=CONJG(U( J) ) 

V( J-1 ) =CONJG(V( J) ) 

TEMP=CONJG( LAMDAP( J) ) 

LAMDAP ( J-1 ) =>CONJG( LAMDAM( J) ) 

LAMDAM( J-1 ) =TEMP 
TAU( J-1 ) =CONJG(-TAU( J) ) 

IF (IS.GT.3) GO TO 30 
FI ( J-1 ) =CONJG( FI ( J) ) 

SI ( J- 1 ) =CONJG( SI ( J) ) 

C 20 CHECK TO SEE IF WE ARE PAST XIC 
IF (J.LE.NB) GO TO 50 

C GET SINGULAR TERMS F2 AND S2 BY REFLECTION 
F2( J-1 ) =CONJG( F2( J) ) 

S2( J-1 ) =CONJG( S2( J) ) 

IF ( J.LE.NC) GO TO 50 
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C GET INHOMOGENEOUS TERMS F3 AND S3 BY REFLECTION 
F3(J-1)=CONJG(F3(J)) 

S3( J-1 )=CONJG(S3( J) ) 

C GET REGULAR TERMS PHI AND PSI BY REFLECTION 
30 DO 40 LX-1 ,NX 

PHI( J-1 ,LX)=CONJG(PHI(J,LX)) 

40 PSI(J-1 , LX+LOFF) =CONJG(PSI(J, LX+LOFF) ) 

C GET SOLUTION- AT XI(J) FROM ETA(J) TO ETA(K2) 

50 CALL LINEJ (J, J,K2) 

C SAVE SOLUTION ALONG DIAGONAL POINTS 
60 IF (J.GE.NC) CALL SAVE (J,J,J) 

RETURN 

SOLVE EQUATIONS ON RECTANGULAR GRID FOR TRANSONIC OR SUPERSONIC 
PATHS 

70 ROOT=(0. , 1 . ) 

R00T1 =(1 . ,0.) 

IR=R1 *TP/GRID+1 .-TOL 
IR=MRP*(1+IR/NF) 

IF (MODE. LT.O) IR=MRP 
KM=1 +(NN-KK)/IR 
K0-K1-1 

C SOLVE DIFFERENTIAL EQUATIONS ON XI CHARACTERISTICS FRCM KO TO JJ 
DO 80 J=K1 ,JJ 

C SAVE SOLUTION ALONG CHARACTERISTIC ETA(NC) 

IF (J.GT.NC) CALL GETPSI (NC.J-1) 

C FIND VALUES ON NEXT XI CHARACTERISTIC 
CALL LINIT (J,KO) 

R00T2 =ROOT 

CALL LINEJ ( J,K1 ,NN) 

80 R00T=R00T2 

WRITE ( N1 ) KC.KM 

LN=(MM-JJ)/IR+1 

IF (MODE. LT.O) WRITE (N1) LN 

LB=NN 

IF (MODE. LT.O) LB=KK 

C SAVE SOLUTION ON CHARACTERISTIC XI(JJ) 

DO 90 K=NC,LB 
90 CALL GETPSI (K,JJ) 

XX=SINGX 

YY=SINGY 

IF (MODE. LT.O) CALL SAVE (KK+1.NN.JJ) 

SINGX=XX 

SINGY=YY 

LN=MM-JJ 

DO 1 20 K=1 , LN 

L=NN-K 

M=JJ+K 

CALL LINIT (M,K0) 

R00T2=R00T 

CALL LINEJ (M,K1,L) 

R00T=R00T2 - 

IF (MODE. LT.O) GO TO 100 
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C SAVE SOLUTION ON ELLIPSE BOUNDARY FOR TRANSONIC PATHS 
CALL GETPSI (L,M) 

GO TO 1 1 0 
100 MK=( L-KK)/IR+1 

C SUPERSONIC PATH, SAVE SOLUTION ALONG REAL CHARACTERISTICS 
IF (MOD(M-JJ.IR).EQ.O) WRITE (N1) MK 
CALL GETPSI (KK,M) 

XX=SINGX 

YY=SINGY 

IF ( L.GE.KK+1 ) CALL SAVE (KK+1.L.M) 

SINGX=XX 
SINGY=YY 
110 CONTINUE 
120 CONTINUE 
RETURN 
END 


SUBROUTINE LINEJ (J,K1,K2) 

C SOLVES DIFFERENCE EQUATIONS ALONG COMPLEX CHARACTERISTIC XI(J) 

COMMON /I / NP,KBM,MODE,NF,NN,MM,NI,NX,IS,KC,LBM,JJ,KK,NB,NC,MRP,NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF, KP, NOSE, NCAS 
COMMON /6/ FAIMG(3),FBIMG(3),SAIMG(3),SBIMG(3),XAIMG(3),XBIMG(3),Y 
1AIMG(3),YBIMG(3) 

COMMON /WWS/ W2 , WS2 , LAM2 

COMPLEX FI .F2.F3.S1 , S2, S3 , PHI, PSI,U, V, LAMDAP, LAMDAM,TAU,XI, ETA 
COMMON PHI(585, 1 ) ,SKA(390) ,PSI(585, 1 ) ,SKB(390) ,XI(585) ,ETA(585) ,U( 
1585) ,V(585) ,F1 (585) , SI (585) ,F2(585) ,S2(585) ,F3(585) , S3 (585) .LAMDAP 
2(585) , LAMDAM(585) , TAU(585) 

COMPLEX T1 ,T2,WS3,W3,LAMF,L23,L13,WS13,W23,W1 ,W2,WS1 ,WS2, LAM1 , LAM2 
COMPLEX DXI, XIH, U3 , V3 , LAMBP, LAMBM, TAUL, LAMBPH, LAMBMH, TAUP, TAUM, DTA 
1 UI , PHINC , RH1 , RH2 , RH3 , RH4 , ETAH, GE, ETGE, EF, DY , I 
COMMON /!/ PHINC (20) 

DATA 1/(0., 1.)/ 

NEX=1 

IF (NB.EQ.1 ) NEX=2 
DXI=XI( J)-XI( J-1 ) 

XIH=.5*(XI( J) +XI( J-1)) 

DO 130 L=K1 ,K2 
IF (MODE. LT.O) GO TO 1 0 

C SOLVE FOR U AND V TO FIRST ORDER ACCURACY 
RH1 =V( L) - LAMDAP (L) *U( L) 

RH2=V(L-1 ) -LAMDAM( L- 1 ) *U( L- 1 ) 

U3 =( RH1 -RH2 ) / ( LAMDAM( L-1 ) -LAMDAP ( L) ) 

V3=RH1 +LAMDAP( L)*U3 

C COMPUTE LAMDA+ , LAMDA- TO FIRST ORDER ACCURACY 
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CALL LAMBDA (U3» V3,LAMBP, LAMBM, TAUL,XI( J) ,ETA(L) ,-1 ) 

C COMPUTE MIDPOINT VALUES OF LAMBDA+ AND LAMBDA- 
LAMBPH=.5*( LAMBP+LAMDAP( L) ) 

LAMBMH=.5*( LAMBM+LAMDAM( L-1 ) ) 

C SOLVE FOR U AND V TO SECOND ORDER ACCURACY 
RH1 =V(L)-LAMBPH*U(L) 

RH2 - V( L- 1 )-LAMBMH*U( L- 1 ) 

U(L) =(RH1 -RH2 ) / ( LAMBMH- LAMB PH) 

• V( L) =RH1 +LAMBPH*U( L) 

C FIND LAMBDA+ AND LAMBDA- AT XI(J),ETA(L) *' 

CALL LAMBDA (U( L) , V( L) , LAMDAP( L) , LAMDAM( L) , TAUL, XI( J) , ETA( L) , 1 ) 
GO TO 20 

C SUPERSONIC PATH. USE ALTERNATE METHOD TO COMPUTE U,V AND TAU 
1 0 WS1 =U( L) +CMPLX ( -AIMAG( V( L) ) , REAL( V(L) ) ) 

W1 =U( L) -CMPLX( -AIMAGC V(L) ) , REAL( V( L) ) ) 

CALL LAMBD (W1 ,WS1 ,LAM1 ,TAUL,XI( J) ,ETA(L) ,-1 ) 

T1 =LAM2/(W2*W2) 

T2=LAM1 / ( WS1 *WS1 ) 

WS3=(-T1 *(T2*WS1-W1)-(T1 *W2-WS2) )/(1 .-T1 *T2) 

W3=T2*(WS3-WS1)+W1 

CALL LAMBD (W3.WS3, LAMP, TAUL, XI( J) , ETA( L) ,-1 ) 
L23=0.5*(LAM2+LAMF) 

LI 3=0. 5*( LAM1 +LAMF) 

WS1 3=0-5 *(WS3 + WS1 ) 

W23=0-5*(W2+W3) 

T1=L23/(W23*W23) 

T2=L13/(WS13*WS13) 

T1 =( — T1 *( T2*WS1 -W1 )-(T1 *W2-WS2) )/(1 .-T1 *T2) 

W2 =T2 *( T1 -WS1 ) +W1 
WS2 =T1 

CALL LAMBD (W2, WS2 , LAM2, TAUL, XI ( J) ,ETA( L) ,1 ) 

U ( L) = ( W2 +WS2 ) /2 . 

V(L)=(WS2-W2)/(2.-*I) 

20 CONTINUE 

C COMPUTE MIDPOINT VALUE FOR TAU 
TAUP=. 5 *( TAU( L- 1 ) +TAUL) 

TAUM=- . 5*( TAU( L) +TAUL) 

TAU(L) =TAUL 
DTAUI=1 ./(TAUM-TAUP) 

IF (IS.GT.3) GO TO 40 

C FIRST COMPUTE FI AND SI AT XI(J),ETA(L) 

RH1 =F1 ( L) +TAUM*S1 ( L) 

RH2 =F1 ( L-1 ) +TAUP*S1 ( L-1 ) 

SI ( L) =(RH1 -RH2)*DTAoI 
FI ( L) =RH1 -TAUM*S1 ( L) 

IF (( J.LE.NB).OR.(L.LT.NB)) GO TO 130 
C NOW COMPUTE F2 AND S2 
RH3=F2( L) +TAUM*S2( L) 

RH4=F2( L-1 ) +TAUP*S2( L-1 ) 

IF ( L. NE. NB) GO TO 30 

C INITIALIZE AT ETA( NB) , J GREATER THAN NB 
RH4 = I*( FBIMG( IS) +TAU( L) *SBIMG( is) ) 
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S2( L) =(RH3"RH4)/(TAUM-TAU(L)) 

F2( L) =RH3-TAUM*S2( L) 

GO TO 130 
30 CONTINUE 

C FIND F2 AND S2 FOR J AND L GREATER THAN NB 
S2( L) =(RH3 - RH4)*DTAUI 
F2( L) =RH3-TAUM*S2( L) 

IF ( ( J. LT. NC) .OR. (L. LT. NC) ) GO TO 1 30 
IF ( (J.EQ.NC) .AND. (L.EQ.NC) ) GO TO 60 
EF AND GE ARE INHOMOGENEOUS TERMS 

F3 AND S3 ARE REAL FUNCTIONS FOR SUBSONIC AND TRANSONIC PATHS 
ETAH=.5*( ETA( L) +ETA( L-1 ) ) 

GE= . 5*( ( RH2-I*( FA1MG( IS) +TAUP*SAIMG( IS) ) )/ ( ETA( 1 ) -ETAH) **NEX+( RH4- 
1 I*( FBIMG( IS) +TAUP*SBIMG( IS) ) )/(ETA( NB)-ETAH) ) 

IF (MODE. LT.O) GE=0. 

ETGE=(ETA( L)-ETA(L-1 ) ) *GE 
IF (J.EQ.NC) GO TO 80 

EF= ( (RH1 +I*( FAIMG( IS) +TAUM*SAIMG( IS ) ) ) / ( XI ( 1 ) -XIH) **NEX+ ( RH3 +1* ( FB 
1 IMG( IS) +TAUM*SBIMG( IS) ) )/(XI( NB)-XIH) ) 

IF (MODE.GT.O) EF-.5*EF 
40 IF (L.EQ.NC) GO TO 100 

COMPUTE SOLUTIONS FOR J AND L GREATER THAN NC 
FIRST GET THE REGULAR TERMS PHI AND PSI 
DO 50 LX=1 , NX 

RH1 =PHI( L, LX) +TAUM*PSI( L, LX+LOFF) 

RH2=PHI(L-1 , LX)+TAUP*PSI(L-1 , LX+LOFF) 

PSI( L, LX+LOFF) =(RH1 -RH2) *DTAUI 
50 PHI( L, LX) =RH1 -TAUM*PSI( L, LX+LOFF) 

IF (IS.GT.3) GO TO 130 
C FIND F3 AND S3 
DY=DXI*EF 

RH1 =F3( L) +TAUM*S3( L) +DY 
RH2 =F3( L- 1 ) +TAUP *S3( L- 1 ) +ETGE 
S3(L)=(RH1-RH2)»DTAUI 
F3(L)=RH1 -TAUM*S3( L) 

GO TO 1 30 

C FIND SOLUTIONS FOR J=NC AND L=NC 
60 DO 70 LX=1 ,NX 
PSI( NC, LX+LOFF) =0. 

CALL INITFN (ETA(NC) PHINC(LX) , LX) 

PHI( NC, LX) =REAL( PHINC(LX)) 

70 IF (MODE. LT.O) PHI(NC,LX)=PHINC(LX) 

F3(NC)=0. 

S3(NC) =0. 

GO TO 1 30 

C FIND SOLUTIONS FOR J=NC AND L GREATER THAN NC 
80 DO 90 LX=1 , NX 

CALL INITFN (ETA(L) ,PHI(L, LX) ,LX) 

IF (MODE. LT.O) GO TO 90 

PHI(L, LX) =. 5*( PHI( L, LX) +CONJG( PHINC( LX) ) ) 

90 PSI(L, LX+LOFF) =PSI( L-1 ,LX+L0FF)-(PHI(L,LX)-PHI(L-1 ,LX))/TAUP 
F3( L) =0. 
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S3( L) =S3( L-1 ) +ETGE/TAUP 
GO TO 1 30 

C FIND SOLUTIONS FOR J GREATER THAN NO AND L=NC 
100 IF (MODE. LT.O) GO TO 120 
DO 1 1 0 LX=1 , NX 

CALL INITFN (CONJG(XI( J) ) ,DY,LX) 

IF (MODE.GT. 0) DY=.5*(PHINC(LX)+C0NJG(DY) ) 

PSI( L, LX+LOFF) =PSI( L, LX+LOFF)- (DY- PHI ( L, LX) )/TAUM 
110 PHI(L,LX)=DY 
1 20 CONTINUE 

S3( L) =S3( L) +DXI*EF/TAUM 
130 CONTINUE 

IF (J.BQ.NB) CALL GETFS2 (K2) 

RETURN 

END 


SUBROUTINE GETFS1 (K2) 

C COMPUTE U AND V AND SINGULAR TERMS FI AND SI ON XI=XIA 
C FOR AIRFOIL ALSO DETERMINE F2 AND S2 

COMPLEX FI ,F2,F3,S1 , S2, S3 , PHI, PSI,U,V, LAMDAP, LAMDAM.TAU, XI, ETA 
COMMON PHI(585, 1 ) ,SKA(390) ,PSI(585, 1 ) ,SKB(390) ,XI(585) ,ETA(585) ,U( 
1585) ,¥(585) , FI (585) ,S1 (585) ,F2(585) ,S2(585) ,F3(585) ,S3(585) .LAMDAP 
2(585) , LAMDAM(535) , TAU(585) 

COMMON /I / NP,KBM,MODE,NF,NN,MM,NI,NX,IS,KC,LBM,JJ,KK,NB,NC,MRP,NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF , KP, NOSE, NCAS 
COMPLEX XIA,XIB,XIC,DZ 

COMMON /3/ R, R1 , R2, RATC, PHMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB, VA, VB,UC, 
1 VC , TRANU , TRANL, CONE, CTWO , CTHR, EP, RN, SO, THNOS, DZ 
COMMON /6/ FAIMG(3),FBIMG(3),SAIMG(3),SBIMG(3),XAIMG(3) > XBIMG(3),Y 
1 AIMG(3) , YBIMG(3) 

REAL MACH 

COMMON /A/ GAMMA, MACH, RHOINF, EMU,QSTRSQ 
COMPLEX SOFXI, RH1 , RH2, S, T, SP, I 
COMPLEX DTAUDX 
DATA 1/(0., 1 .)/ 

C FIND LAMBDA AND TAU AT XI=XIA, ETA=CONJG(XIA) 

C COMPUTE S AT XI = XIA 
CALL STOFXI (XIA.S.SP) 

U( 1 ) =UA 
V( 1 ) =VA 

CALL LAMBDA (U(1 ) , V( 1 ) , LAMDAP( 1 ) ,LAMDAM( 1 ) ,TAU(1 ) ,XIA,CONJG(XIA) ,1 
1) 

C FIND FI AND SI AT XI=XIA, ETA=CONJ(XIA) 

RH1 =REAL(TAU(1 ) ) 

RH2 =AIMAG( TAU( 1 ) ) 
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SI ( 1 ) =( FAIMG( IS)-RH1 *SAIMG( IS) )/RH2 
FI ( 1 ) =RH1 *S1 (1)-RH2*SAIMG(IS) 

IF (NB.NE.l) GO TO 10 
RH1 =-1./TAU(1) 

RH2 =DTAUDX(U( 1 ) , V( 1 ) ) *( SI ( 1 ) +I*SAIMG( IS) ) *RK1 

F2( 1 ) =( AIHAG(RH2)-SBIMG( IS)-REAL(RH1 ) *FBIMG( IS) )/AIMAG(RH1 ) 

S2( 1 )=REAL(RH2)-REAL(RH1 *(F2( 1 ) + I*FBIMG( IS) ) ) 

10 DO 20 L=2,K2 

C COMPUTE HODOGRAPH VARIABLE T( ETA(L) ) 

CALL STOFXI (CONJG(ETA(L) ) , SOFXI.O. ) 

T=CONJG( SOFXI ) 

U( L) =U(L-1 ) 

V( L) =V( L-1 ) 

CALL GETUV (S,T,U(L) ,V(L) ) 

CALL LAMBDA (U ( L) , V( L) , LAMDAP ( L) , LAMDAM( L) , TAU ( L) , XIA, ETA( L) , 1 ) 
C FIND FI AND SI ALONG XI=XIA AT ETA(L) 

C COMPUTE TAU+ AT MIDPOINT 

TAUP=*. 5 *( TAU ( L) +TAU ( L- 1 ) ) 

RH1 =F1 ( L-1 ) +TAUP*S1 ( L-1 ) 

RH2=-I*(FAIMG( IS)-TAU( L)*SAIMG( IS) ) 

SI ( L) =( RH1 -RH2) / ( TAUP+TAU( L) ) 

F1(L)=RH1-TAUP*S1(L) 

IF (NB.NE.l) GO TO 20 
C FOR AIRFOIL GET F2 AND S2 
RH1 =E2( L-1 ) +TAUP*S2 ( L-1 ) 

RH2=-I*( FBIMG( IS)-TAU( L) *SBIMG( IS) ) 

RH2 =RH2 +DTAUDXCU ( L) , V( L) ) *( SI ( L) +I*SAIMG( IS) ) 

S2 ( L) =( RH1 -RH2 ) / ( TAUP+TAU( L) ) 

F2(L) =RH1 -TAUP*S2( L) 

20 CONTINUE 
RETURN 
END 


SUBROUTINE GETFS2 (K2) 

C COMPUTE SINGULAR TERMS F2 AND S2 ON XI=XIB 

COMMON /I / NP.KBM.MODE.NF.NN.MM.NI.NX.IS.KC.LBM.JJ.KK.NB.NC.MRP.NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF, KP, NOSE, NCAS 
COMMON /6/ FAIMG(3),FBIMG(3),SAIMG(3),SBIMG(3),XAIMG(3),XBIMG(3),Y 
1 AIMG(3) ,YBIMG(3) 

COMPLEX FI ,F2,F3,S1 , S2 , S3 , PHI, PSI,U, V, LAMDAP, LAMDAM, TAU, XI, ETA 
COMMON PHIC585, 1 ) , SKA(390) , PSI(585, 1 ) , SKB(390) ,XI(585) ,ETA(585) ,U( 
1585) ,V(585) ,F1 (585) ,S1 (585) ,F2(585) ,S2(585) ,F3(585) ,S3(585) , LAMDAP 
2(585) , LAMDAM(585) , TAU(585) 

COMPLEX I , RH1 , RH2 , TAUP 
DATA 1/(0., 1 .)/ 
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C FIRST FIND F2 AND S2 AT XIB,CONJG(XIB) 

RH1 =-1 . /TAU(NB) 

F2(NB) =( -SBIMG( IS) -REAL( RH1 ) *FBIMG( IS) )/AIMAG(RH1 ) 
S2(NB)=-REAL(RH1 *( F2( NB) +I*FBIMG( IS) ) ) 

C NOW FIND F2,S2 ALONG INITIAL CHARACTERISTIC XI=XIB 
NBP=NB+1 
DO 10 L=NBP,K2 

C COMPUTE TAU+ AT MIDPOINT 
TAUP=.5*( TAU( L) +TAU( L-1 ) ) 

RH1 =F2(L-1 ) +TAUP*S2(L-1 ) 

RH2=-I*( FBIMG( IS)-TAU(L) *SBIMG( IS) ) 

S2 ( L) =( RH1 -RH2 ) / ( TAUP+TAU( L) ) 

10 F2( L)=RH1 -TAUP*S2( L) 

RETURN 

END 


SUBROUTINE GETPHI (K2,KX) 

FIND U AND V AND REGULAR SOLUTIONS ON CHARACTERISTIC XIC 
USED ONLY WHEN NO SINGULAR TERMS ARE COMPUTED 
COMPLEX FI , F2 , F3 1 SI , S2, S3, PHI, PSI, U,V, LAMDAP, LAMDAM, TAU.XI, ETA 
COMMON PHI(585, 1 ) ,SKA(390) ,PSI(585, 1 ) ,SKB(390) ,XI(585) ,ETA(585) ,U( 
1585) ,V(585) ,F1 (585) ,S1 (585) ,F2(585) ,S2(585) ,F3(585) ,S3(565) .LAMDAP 
2(585) , LAMDAM (585) , TAU(585) 

COMMON /I / NP,KBM,MODE, NF, NN,MM,NI, NX, IS,KC ,LBM, JJ,KK,NB, NC.MRP, NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF, KP, NOSE, NCAS 
COMPLEX XIA,XIB,XIC,DZ 

COMMON /3/ R, R1 , R2, RATC, PHMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB, VA, VB,UC, 
1 VC , TRANU , TRANL , CONE , CTWO , CTHR, EP , RN, SO , THNOS , DZ 
COMPLEX PHINC , S, T, SOFXI , TAUP 
DIMENSION PHINC (20) 

NCP=NC+1 - 

CALCULATE COEFFICIENTS ON INITIAL CHARACTERISTIC XIC 
FIND U AND V ON INTIAL CHARACTERISTIC 
U ( NC ) =UC 
V(NC) =VC 

CALL LAMBDA (U(NC) ,V(NC) ,LAMDAP(NC) ,LAMDAM(NC) ,TAU(NC) ,XIC,CONJG(X 

110 , 1 ) 

C INITIALIZATION OF PHI AND PSI 

DO 10 LX=1 ,KX 

CALL INITFN (ETA(NC) , PHINC (LX) ,LX) 

PSI( NC , LX+LOFF) =0. 

10 PHI( NC, LX) =REAL( PHINC( LX) ) 

C COMPUTE S AT XI=XIA 

CALL STOFXI (XI(NC) ,S,0. ) 

C FIND U,V, LAMBDA AND TAU ALONG XI=XIC 
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DO 30 L=NCP,K2 

C COMPUTE HODOGRAPH VARIABLE T( ETA( L) ) 

CALL STOFXI ( (CONJG(ETA(L) ) ) , SOFXI.O. ) 

T=CONJG(SOFXI) • 

U(L)=U(L-1) 

V( L) -V( L-1 ) 

CALL GETUV (S, T,U(L) , V( L) ) 

CALL LAMBDA (U(L) , V( L) , LAMDAP( L) , LAMDAM(L) , TAU(L) ,XIC, ETA( L) , 1 ) 
C COMPUTE TAU+ AT MIDPOINT 
TAUP=.5*(TAU(L) +TAU(L-1 ) ) 

DO 20 LX=1 ,KX 

CALL INITFN (ETA( L) , PHI( L, LX) , LX) 

PHI( L,LX)=.5*( PHI( L, LX) +CONJG( PHINC( LX) ) ) 

20 PSI( L, LX+LOFF) =PSI( L-1 , LX+LOFF)- (PHI( L, LX)-PHI( L-1 , LX) )/TAUP 
30 CONTINUE 
RETURN 
END 


SUBROUTINE INITFN (ETA.Z.LJ) 

C COMPUTES DATA Z ON THE INITIAL CHARACTERISTIC XI = XIC 

COMMON /I / NP,KBM,MODE, NF, NN,MM, NI,NX, IS,KC f LBM, JJ,KK, NB, NC ,MRP, NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF.KP, NOSE, NCAS 
COMPLEX XIA,XIB,XIC,DZ 

COMMON /3/ R,R1 ,R2,RATC,PHMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB,VA,VB,UC, 
1 VC , TRANU , TRANL , CONE , CTWO , CTHR, EP , RN, SO , THNOS , DZ 
COMPLEX BP.ETJ 
COMMON /8/ BP(65),ETJ(65) 

COMPLEX I, ETA, Z,SIG,TEMP 
EXTERNAL SIG 
DATA 1/(0., 1.)/ 

IF (MODE. LE. 0) GO TO 10 

INITIAL DATA FOR (LJ+NJ)TH TERM IS REAL OR IMAGINARY PART OF 
LXTH CHEBYSHEV POLYNOMIAL 
LX= L J+ IABS( NJ ) 

J=(LX+1 )/2 
TEMP-1 . 

IF (LX.NE. J+J) TEMP = -I 
Z=SIG(ETA) 

AJ=FLOAT( J) 

DEN=AJ*ALOG(R) 

Z =TEMP * ( CEXP ( A J*CLOG ( Z ) -DEN) +CEXP ( - AJ^CLOG ( Z) -DEN) ) 

RETURN 

C INITIALIZE REGULAR TERM FOR SUPERSONIC PATH 
10 NF2=NF/2 

Z=SIG(CONJG(ETA) ) 
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TEMP=0. 

DO 20 J=1 ,NF2 
A J=FLOAT( J) 

DEN=AJ*ALOG(R) 

20 TEMP = TEMP +ET J( J) * ( CEXP ( AJ*CLOG ( Z) - DEN) +CEXP ( - A J*CLOG ( Z ) - DEN) ) 
Z=CONJG(TEMP) 

RETURN 

END 


SUBROUTINE LIN IT (J1.K1) 

C INITIALIZES INTEGRATION ON NEW CHARACTERISTIC FOR RECTANGULAR GRID 
COMMON /I / NP,KBM ,M0DE, NF, NN,MM,NI,NX, IS,KC, LBM, JJ,KK, NB,NC ,MRP, NJ 
1 , KF, NBPS, NFC, NRN, NPTS, NT, IPLT, LOFF.KP, NOSE, NCAS 
COMPLEX XIA,XIB,XIC ,DZ 

COMMON /3/ R,R1 ,R2,RATC,PHMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB,VA,VB,UC, 
1 VC , TRANU , TRANL , CONE , CTWO , CTHR , EP , RN, SO , THNOS , DZ 
COMMON /6/ FAIMGC3) ,FBIMG(3) ,SAIMG(3) ,SBIMG(3) ,XAIMG(3) ,XBIMG(3) ,Y 
1 AIMG( 3) , YBIMG(3) 

COMPLEX W2 , WS2 , LAM2 
COMMON /WWS/ N2.WS2.LAM2 

COMPLEX FI ,E2,F3,S1 , S2.S3, PHI, PSI,U, V, LAMDAP, LAMDAM,TAU,XI, ETA 
COMMON PHI(585, 1 ) ,SKA(390) ,PSI(585, 1 ) ,SKB(390) ,XI(585) ,ETA(585) ,U( 
1585) ,V(585) ,F1 (585) ,S1 (585) ,F2(585) ,S2(585) ,F3(585) , S3 (585) .LAMDAP 
2(585) , LAMDAM(585) , TAU(585) 

COMPLEX I, S, T, RH1 , RH2 , SFROMX, TAUP, TAUM ,DTAUDX, PHINC 
COMMON /T/ PHINC (20) 

DATA 1/(0., 1.)/ 

C COMPUTE S AT XI( J1 ) 

S= SFROMX ( XI ( J1 ) ) 

C COMPUTE T AT ETA(K1 ) 

T=CONJG( SFROMX (CONJG( ETA( K1 ) ) ) ) 

CALL GETUV ( S, T,U(K1 ) , V(K1 ) ) 

CALL LAMBDA (U(K1 ) ,V(K1 ) ,LAMDAP(K1 ) ,LAMDAM(K1 ) ,TAUP,XI( J1 ) ,ETA(K1 ) 
1,1) 

IF (MODE.GT.O) GO TO 10 

WS2=U(K1 )+CMPLX(-AIMAG(V(K1 )) , REAL(V(K1 )) ) 

W2=U(K1 ) -CMPLX(-AIMAG( V(K1 ) ) , REAL( V(K1 ) ) ) 

CALL LAMBD (W2 ,WS2, LAM2, TAU(K1 ) ,XI( J1 ) ,ETA(K1 ) ,-1 ) 

10 CONTINUE 

C COMPUTE TAU- AT THE MIDPOINT 

TAUM=- . 5 *( TAU (K1 ) +TAUP) 

C STORE NEW TAU+ 

TAU(K1 ) =TAUP 
IF (K1.EQ.NC) RETURN 

C FIND FI AND SI AT (CONJG(XIA) ,XI( J1 ) ) 
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RH1 =F1 ( 1 ) +TAUM*S1 ( 1 ) 

RH2=I*(FAIMG(IS) +TAUP*SAIMG( IS) ) 

SI ( 1 ) =( RH1 -RH2)/( TAUM-TAUP) 

FI ( 1 ) -RH1 -TAUM*S1 ( 1 ) 

IF (NB.NE.1 ) GO TO 20 

C FIND F2 AND S2 FOR AIRFOIL 
RH1 =F2( 1 ) +TAUM*S2( 1 ) 

RH2 =CONJG(DTAUDX(CONJG(U ( 1 ) ) ,C0NJG(¥( 1 ))))*( SI ( 1 )-I*SAIMG( IS) ) 
Rt£=I*( FBIMG( IS) +TAUP*SBIMG( IS) )+RH2 
S2 ( 1 )=( RH1 -RH2) /( TAUM-TAUP) 

F2( 1 )=RH1 -TAUM*S2 ( 1 ) 

RETURN 

C F2 AND S2 ARE INITIALIZED IN LINEJ FOR CASCADE 
20 F2(NB-1 ) =CMPLX(0 . , 1 . )*FBIMG( IS) 

S2(NB-1 ) =CMPLX(0. , 1 . ) *SBIMG( IS) 

RETURN 

END 


SUBROUTINE SAVE (K1.K2.K3) 

C IN REAL FLOW DOMAIN INTEGRATES TO FIND X AND Y AND SAVES THE 
C SOLUTIONS ON TAPE 
REAL LOG1 , L0G2 

COMMON /I / NP , KBM , MODE , NF, NN, MM , NI , NX , IS , KC , LBM , J J, KK , NB , NC ,MRP , NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF, KP, NOSE, NCAS 
COMMON /2/ PI, TP,GRID,TOL 
COMPLEX XIA,XIB,XIC ,DZ 

COMMON /3/ R, R1 , R2, RATC, PHMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB, VA, VB,UC, 
1 VC , TRANU , TRANL , CONE , CTWO , CTHR, EP , RN, SO , THNOS , DZ 
COMMON /6/ FAIMG(3) ,FBIMG(3) ,SAIMG(3) ,SBIMG(3) ,XAIMG(3) ,XBIMG(3) ,Y 
1 AIMG(3) ,YBIMG(3) 

COMPLEX BP.ETJ 

COMMON /8/ BP(65),ETJ(65) 

REAL MACH 

COMMON /A/ GAMMA , MACH , RHOINF , EMU , QSTRSQ 

COMMON /G/ NI ,N3,N4,N7,M1 

COMMON /M/ SINGX,SINGY,SINGXO, SINGYO 

COMPLEX FI ,F2,F3,S1 ,S2,S3,PHI,PSI,U,V,LAMDAP,LAMDAM,TAU,XI,ETA 
COMMON PHI( 585 , 1 ) , SKA( 390 ) , PSI( 585 , 1 ) , SKB( 390 ) ,XI ( 585 ) , ETA( 585 ) ,U ( 
1 585) , V(585) , FI (585) , SI (585) , F2(585) , S2(585) , F3(585) , S3(585) , LAMDAP 
2(585) ,LAMDAM(585) ,TAU(585) 

COMPLEX TEMP, ROTATE 

COMMON /TT/ ROTATE, THETAP, THETA, UOLD, VOLD,SINGF, SINGS, PHIQLD(20) ,P 
1 SI0LD(20) ,X0LD(20) , YOLD(20) .THLAST 
LOGICAL ISW 
IF (IS.GT.3) GO TO 50 
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TEMP=CLOG( (XI(K3)-XI( 1 ) )/(XI(K3)-XI(NB) ) ) 

L0G1 =REAL( TEMP) 

IF (K3.NE.NC) GO TO 20 

C INITIALIZE TERMS NEEDED FOR INTEGRATION 
UOLD=U(NC) 

VOLD=V(NC) 

SINGX=0 . 

SINGY=0 . 

DO 1 0 LX=1 , NX 
X0LD(LX)=0. 

10 YOLD(LX) =0. 

IR-R1 *TP/GRID+1 .-TOL 
IR=MRP*(1 +IR/NF) 

M=1 +(NN-KK)/IR 
THETA=AIMAG( TEMP) 

THETAP=AIMAG(CLOG(XI ( NC)-XI( NB) ) ) 

ROTATE=CMPLX(COS( THETAP) , -SIN( THETAP) ) 

20 ISW=. TRUE. 

C CHECK THAT WE ARE NOT CROSSING THE BRANCH CUT 
IF (MODE. LT. 0) IR=MRP 
DTH= THETA- AIMAG( TEMP) 

THETA=AIMAG( TEMP) 

IF ( ABS(DTH) . LT. PI) GO TO 30 
WRITE (N4.160) 

C CHECK FOR JUMP IN BRANCH OF LOGARITHM 
30 TEMP=CLOG( (XI(K3)“XI(NB) )*ROTATE) 

L0G2=REAL(TEMP) 

THETAP=AIMAG( TEMP) +THETAP 

ROT ATE= CMP LX (COS (THETAP) ,-SIN( THETAP) ) 

IF (MODE.LT.O) GO TO 40 

IF (K3.NE. JJ) GO TO 40 

IF (MODE. EQ. 1 ) THLAST=THETAP 

DTH=THETAP-THLAST 

IF ( ABS(DTH) . LT. PI) GO TO 40 

C THIS PATH AND THE LAST FORM A CLOSED LOOP ABOUT XIB 

C SET ISW TO MAKE AN APPROPRIATE ADJUSTMENT FOR X AND Y INTEGRATION 

ISW=. FALSE. 

DTH=(PI+PI) *DTH/ABS(DTH) 

THETAP=THETAP-DTH 
FJUMP=FBIMG( IS) 

SJUMP=SBIMG( IS) 

XJUMP=XAIMG( IS) +XBIMG( IS) 

YJUMP=YAIMG( IS) +YBIMG( IS) 

IF (NB.EQ.1) GO TO 40 
FJUMP=FAIMG( IS) +FBIMG( IS) 

SJUMP=SAIMG( IS) +SBIMG( IS) 

40 THETA2=THETAP 

IF (K1.EQ.NN) THLAST=THETA2 
IF (NB.EQ.1) TEMP=1 ./(XI(K3)-XI(1)) 

C FIND COMPONENTS OF PHI,PSI,X AND Y FROM ETA(K1 ) TO ETA(K2) 

50 DO 150 L=K1 ,K2 
UNEW=REAL(U( L) ) 
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VNEW=REAL(V(L) ) 

UH= . 5*(U0LD+UNEW) 

VH=.5*(V0LD+VNEW) 

QS=UH*UH+VH*VH 
IF (IS.GT.3) GO TO 100 
SINGFO=SINGF 
SINGS 0=SINGS 
IF (NB.EQ.1) GO TO 60 
C COMPUTE SINGULAR TERMS FOR CASCADE 

SINGF=REAL( FI ( L) ) *LOG1 +(REAL( FI ( L) ) +REAL(F2( L) ) ) *L0G2-FAIMG( IS) *TH 
1 ETA- ( FAIMG( IS) +FBIMG( IS) ) *THETA2+REAL( F3( L) ) 

SINGS= REAL( SI ( L) ) *LOG1 +( RE AL( SI ( L) ) +REAL( S2( L) ) ) *L0G2-SAIMG( IS) *TH 
1 ETA- ( SAIMG( IS) +SBIMG( IS) ) #THETA2 + REAL( S3 ( L) ) 

GO TO 70 

C COMPUTE SINGULAR TERMS FOR ISOLATED AIRFOIL 

60 SINGF=REAL( ( FI ( L) +CMPLX( 0 . , FAIMG( IS) ) ) *TEMP) +REAL( F2(L) ) *LOG2-FBIM 
1 G( IS) *THETA2 +REAL( F3( L) ) 

SINGS=REAL( ( SI ( L) +CMPLX(0 . , SAIMG( IS) ) ) *TEMP) +REAL( S2(L) ) *L0G2-SBIM 
1 G( IS) *THETA2+REAL( S3( L) ) 

70 IF (MODE.GT.O) GO TO 80 
SINGF=SINGF+REAL( PHI( L, 1 ) ) 

SINGS=SINGS+REAL( PSI( L, 1 ) ) +ETJ(65) 

80 IF (L.EQ.NC) GO TO 100 
IF ( ISW) GO TO 90 

C MODIFY THE SINGULAR PART OF X AND Y TO ACCOUNT FOR JUMP IN LOG 
SINGFO=SINGFO+DTH* FJUMP 
SINGSO=SINGSO+DTH*SJUMP 
SINGX=SINGX+DTH*XJUMP 
S INGY- SING Y+ DT H* Y JUMP 
C INTEGRATE TO OBTAIN 3INGX AND SINGY 
90 DPHI=SINGF-SINGFO 

DPSI=( SINGS-SINGSO) /RHO (QS) 

SINGX=SINGX+(UH*DPHI-VH*DPSI) /QS 
SINGY=SINGY+(UH # DPSI+VH*DPHI)/QS 
100 DO 120 LX=>1 , NX 

IF (L.EQ.NC) GO TO 110' 

C INTEGRATE TO GET REGULAR TERMS FOR X AND Y 
DPHI=REAL(PHI(L,LX) )-PHIOLD(LX) 

DPSI=(REAL( PSI( L, LX+LOFF) )-PSIOLD(LX) )/RHO(QS) 

XOLD(LX)=XOLD(LX) +(UH*DPHI-VH*DPSI)/QS 
YOLD( LX) =YOLD( LX) +(UH*DPSI+ VH*DPHI) / QS 
110 PSIOLD( LX) =PSI( L, LX+LOFF) 

PHIOLD(LX)=PHI(L, LX) 

120 CONTINUE 

C STORE SOLUTIONS ON TAPE! 

IF (L.LT.KK) GO TO 1 40 

IF ((M0D(K3-JJ,IR).NE.0) .OR. (MOD(L-KK, IR) .NE.O) ) GO TO 1 40 
IF (MODE. LT. 0 ) GO TO 130 
IF (L.EQ.KK) WRITE (N1) KC,M 

WRITE (Nl) UNEW, VNEW, ( PHIOLD(K) ,PSICLD(K) ,XOLD(K) ,YOLD(K) ,K=1 , NX) , 
1 SINGF, SINGS, SINGX, SINGY 
GO TO 140 



130 WRITE ( N1 ) XI(K3),ETA(L) ,UNEW, VNEW.SINGF, SINGS, SINGX.SINGY 
140 UOLD=UNEW 
1 50 V0LD=VNEW 
RETURN 

1 60 FORMAT ( //6X49H* ***SUBSQNIC PATH CROSSES CUT FROM XIA TO XIB****) 
END 


SUBROUTINE GETPSI (L,J) 

C FOR COMPLEX U AND V INTEGRATES TO OBTAIN "X AND Y AT XI (J) ,ETA(L) 

C AND SAVES THE SOLUTIONS ON TAPE 

COMMON /I / NP.KBM.MODE, NF, NN,MM,NI,NX, IS,KC,LBM, JJ,KK,NB, NC,MRP, NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF, KP, NOSE, NCAS 
COMMON /2/ PI, TP,GRID,TOL 
COMPLEX XIA,XIB, XIC ,DZ 

COMMON /3/ R, R1 , R2, RATC,PHMN, GAM,WTAIL,XIA,XIB,XIC,UA,UB, VA, VB,UC, 
1 VC , TRANU, TRANL, CONE , CTWO , CTHR, EP, RN, SO, THNOS, DZ 
COMMON /6/ FAIMG(3) ,FBIMG(3) ,SAIMG(3) ,SBIMG(3) ,XAIMG(3) ,XBIMG(3) ,Y 
1 AIMG( 3) , YBIMG ( 3 ) 

COMPLEX BP.ETJ 

COMMON /8/ BP(65),ETJ(65) 

REAL MACH 

COMMON /A/ GAMMA, MACH, RHOINF, EMU.QSTRSQ 

COMMON /G/ N1 ,N3,N4,N7,M1 

COMMON /M/ SINGX.SINGY, SINGXO, SINGYO 

COMPLEX FI ,F2,F3,S1 , S2, S3, PHI.PSI.U, V, LAMDAP, LAMDAM, TAU,XI,ETA 
COMMON PHI(585, 1 ) ,SKA(390) , PSI(585, 1 ) ,SKB(390) ,XI(585) ,ETA(585) ,U( 
1 585) , V(585) , FI (585) , SI (585) , F2(585) , S2(585) , F3(585) , S3(585) , LAMDAP 
2(585) ,LAMDAM(585) ,TAU(585) 

COMMON /TT/ ROTATE, THETAP, THETA, UOLD, VOLD.SINGF, SINGS, PHI0LD(20) ,P 
1 SI0LD(20) ,X0LD(20) , YOLD(20) .THLAST 

COMPLEX L0G1 ,LOG2,I,CLOG,CSINGF,CSINGS,DPHI,DPSI,CU,CV,CPHI(30) ,CP 
1 SI(30) , CRHQ , UH, VH, QS , CEXP, SINGFO, SINGSO, ROTATE 
COMPLEX FI L, F2 L, SI L, S2 L, RCT2 , F3 L, F4 L, S3 L, S4 L 
DIMENSION NM1 (2) 

DATA 1/(0., 1.)/ 

IF ( J.NE.NC) GO TO 20 

C INITIALIZE QUANTITIES FOR INTEGRATION 
GAMM=(GAMMA-1 . )/2. 

C0SQ=1 . /(MACH*MACH) +GAMM 
GAMI=-1 ./ (GAMMA- 1 . ) 

RHOINF = ( MACH*MACH ) **GAMI 
NM1 =1 OH TRANSONIC 
IR-R1 *TP/GRID+1 .-TOL 
IR=MRP*(1 +IR/NF) 

SINGX=0 . 
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SINGY=0 . 

XJUMP=XAIMG( IS) +XBIMG( IS) 

YJUMP=YAIMG( IS) +YBIMG( IS) 

DO 1 0 LX=1 , NX 
XOLD(LX) =0 . 

10 Y0LD(LX)=0. 

THETA=AIMAG(CLOG( (XI( NC)-XI( 1 ) )/(XI( NC)-XI( NB) ) ) ) 

THET AP= AIHAG ( CLOG ( XI ( NC ) - XI ( NB) ) ) 

ROTATE=CMPLX(COS( THETAP) ,-SIN( THETAP) ) 

IF (MODE. EQ. 1 ) THLAST=THETAP 
ALPHA=-THETA 
ALPHAP=-THETAP 
R0T2 “CON JG ( ROT ATE) 

CU=U(NC) 

CV=V( NC) 

FAC=CTHR 

IF (MODE.GE.O) GO TO 20 
IR=MRP 

NM1 =1 OHSUPERSONIC 
SINGX=SINGXO 
SINGY=SINGYO 
FAC=0. 

C COMPUTE THE COMPLEX VELOCITY AND THE COMPLEX DENSITY 
20 UH=>.5*(CU+U( L) ) 

VH=. 5*(CV+V( L) ) 

QS=UH*UH+VH*VH 

CRHO=CEXP ( - GAMI * CLOG ( C OSQ- GAMM* QS ) ) / RHOI NF 

IF (IS.GT.3) GO TO 100 

ISW=0 

C CHECK THAT CUT BETWEEN XIA AND XIB IS NOT CROSSED 
L0G1 =CLOG( (XI( J)-XI( 1 ) )/(XI( J)-XI(NB) ) ) 
DTH=THETA-AIMAG( L0G1 ) 

THETA=AIMAG( L0G1 ) 

IF (ABS(DTH).GE.PI) WRITE (N4,l60) NM1 
C COMPUTE THE COMPLEX LOGARITHM AND ADJUST THE BRANCH 
IF (NB.EQ.1) L0G1 =1 ./(XI(J)-XI(D) 

L0G2 =>CLOG( (XI( J)-XI( NB) ) *RCTATE) +CMPLX(0. , THETAP) 

IF (MODE.EQ. 1 ) THLAST=AIMAG( L0G2) 

THETAP=AIMAG( L0G2) 

ROTATE=CMPLX(COS( THETAP ), -SIN( THETAP ) ) 

IF (MODE. LT.O) GO TO 30 

C CHOOSE THE BRANCH WHOSE ARGUMENT IS CLOSEST TO THLAST 
DTH=THETAP-THLAST 
' IF (ABS(DTH) .LT.PI) GO TO 30 
C COMPUTE JUMPS IN ALL QUANTITIES 
DTH=( PI+PI) *DTH/ABS(DTH) 

THETAP=THETAP-DTH 
L0G2 =LOG2-CMPLX(0 . , DTH) 

ISW=1 

XJUMP=XBIMG( IS) +XAIMG( IS) 

YJUMP=YBIMG( IS) +YAIMG( IS) 

SINGX=SINGX+DTH*XJUMP 
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SINGY=SINGY+DTH*YJUMP 
THLAST=THETAP 
FJUMP=FBIHG( IS) 

SJUMP=SBIMG( IS) 

IF (NB.EQ.1 ) GO TO 125 
FJUMP=FJUMP+FAIMG( IS) 

SJUMP=SJUMP+SAIMG( IS) 

1 25 SINGFO=SINGFO+DTH*FJUMP 
SINGSO=SINGSO+DTH#SJUMP 
30 IF (NB.NE.1) L0G1 =L0G1 +L0G2 

IF ((J.EQ.JJ).AND. (L.EQ.NN)) THLAST=THETAP 
FI L=F1 ( L) +I*FAIMG( IS) 

F2L=F2( L) +I*FBIMG( IS) 

SI L=S1 ( L) +I*SAIMG( IS) 

S2L=S2( L) +I*SBIMG( IS) 

C COMPUTE THE SINGULAR SOLUTIONS 
CSINGF-F1 L*L0G1 +F2L#LOG2+F3( L) 

CSINGS=S1 L#L0G1 +S2L*L0G2+S3( L) 

IF (MODE. LE.O) GO TO 70 

C INCLUDE ETA TERMS IN SINGULAR SOLUTIONS ON TRANSONIC PATHS 
IF ( NB. EQ. 1 ) GO TO 40 

C CHECK THE SECOND TRANSONIC PATH DOES NOT CROSS BRANCH CUT 
• L0G1 =CLOG( ( ETA( L) -ETA( 1 ) ) / ( ETA( L) -ETA( NB) ) ) 
DTH=ALPHA-AIMAG( L0G1 ) 

ALPHA=AIMAG( L0G1 ) 

IF (ABS(DTH).GE.PI) WRITE (N4.160) NM1 
GO TO 50 

40 L0G1=1 ./(ETA(L)-ETA(I)) 

50 L0G2=CL0G( ( ETA( L)-ETA( NB) ) *R0T2) +CMPLX(0. , ALPHAP) 
ALPHAP=AIMAG(L0G2) 

R0T2=CMPLX(C0S( ALPHAP) ,-SIN( ALPHAP) ) 

C CHECK BRANCH OF SECOND TRANSONIC PATH 
DTH=ALPHAP +THLAST 
IF ( ABS(DTH) . LT. PI) GO TO 60 
DTH=( PI+PI) *DTH/ABS( DTH) 

ISW=1-ISW 

IF ( ISW.NE.O) GO TO 60 
ALPHAP=ALPHAP-DTH 
L0G2=L0G2-CMPLX(0. ,DTH) 

60 IF (NB.NE.1) L0G1 =L0G1 +L0G2 
F3L=F1 (L)-I*FAIMG(IS) 

F4L=F2( L)-I*FBIMG( IS) 

S3L=S1 ( L)-I # SAIMG( IS) 

S4L=S2( L)-i" SBIMG( IS) 

C MODIFY SINGULAR SOLUTIONS ON TRANSONIC PATHS 
CSINGF=.5*(CSINGF+F3L*LOG1 +F4L*LOG2+F3(L)) 

CSINGS=. 5*(CSINGS+S3L # LOG1 +S4L*LOG2+S3( L) ) 

GO TO 80 

70 CS INGF =CS INGF+ PHI ( L, 1 ) 

CSINGS=CSINGS+PSI( L, 1 )+ETJ(65) 

80 IF ( J. EQ. NC) GO TO 90 
DPHI=CSINGF-SINGFO 



DPS I = ( CSINGS- S INGSO ) /CRHO 
C FIND SINGULAR X AND Y TERMS 

SINGX=SINGX+( UH*DPHI-VH*DPSI ) /QS 
SINGY=SINGY+(UH*DPSI+VH*DPHI)/QS 
90 SINGFO=CSINGF 
SINGSO=CSINGS 
SINGF=REAL(CSINGF) 

SINGS=REAL(CSINGS) 

SINGS=SINGS+FAC*AIMAG(CSING3) 

100 CU=U(L) 

UOLD=CU 
CV=V( L) 

VOLD=CV 

C FIND REGULAR X AInID Y TERMS 
DO 1 20 LX-1 , NX 
IF (J.EQ.NC) GO TO 110 
DPHI=PHI( L, LX)-CPHI( LX) 

DPSI=( PSI( L, LX+LOFF) -CPSI( LX) )/CRHO 
XOLD(LX) =XOLD(LX) +(UH*DPHI-VH*DPSI)/QS 
YOLD( LX) =YOLD( LX) +(UH*DPSI+VH*DPHI) /QS 
110 CPHI(LX) =PHI( L, LX) 

CPSI( LX) =PSI( L, LX+LOFF) 

PSIOLD( LX) =CPSI( LX) 

PSIOLDC LX) =PSIOLD( LX) +FAC*AIMAG( PSI( L, LX+LOFF) ) 

120 PHI0LD(LX)=PHI( L,LX) 

C STORE SOLUTIONS ON TAPE 
IF (MODE. LT. 0) GO TO 1 MO 
IF ( ( J. EQ. JJ) .AND. ( L. EQ. NN) ) GO TO 130 
IF (( J.GT.JJ).AND.(MOD(J-JJ,IR).EQ.O)) GO TO 130 
RETURN 

130 WRITE ( N1 ) UOLD, VOLD, ( PHIOLD(K) , PSIOLD(K) ,XOLD(K) ,YOLD(K) ,K=1 , NX) , 
1 SINGF, SINGS, SINGX , SINGY 
RETURN 

1 MO IF ( ( J. LT. JJ) .OR. ( L. LT.KK) ) GO TO 1 50 

IF ( (MOD( J-JJ, IR) . NE.O) . OR. (MOD(L-KK, IR) . NE. 0) ) GO TO 150 
WRITE (N1 ) XI( J) ,ETA( L) ,UOLD, VOLD, SINGF, SINGS, SINGX, SINGY 
150 RETURN 

160 FORMAT (//6XMH****, A1 0, 37H PATH CROSSES CUT FROM XIA TO XIB****) 
END 


SUBROUTINE AUTC2 (RES.DT) 

C SOLVES LINEAR EQUATIONS FOR COEFFICIENTS OF STREAM FUNCTION PSI 
C AND FINDS ALL SOLUTIONS AROUND THE ELLIPSE 
COMPLEX DT, ROTATE 

COMMON PHS( 129,3), RHX( 129,3) ,RHY(129,3) ,RHS(129,3) ,U(129) , V( 1 29 ) 
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COMMON ARRAY(1 28, 1 28) 

COMMON /I/ NP,KBM,MODE,NF,NN,MM,NI,NX, IS,KC,LBM, JJ,KK,NB,NC,MRP,NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF, KP, NOSE, NCAS 
COMMON /2/ PI,TP,GRID,TOL 
COMPLEX XIA,XIB,XIC,DZ 

COMMON /3/ R,R1 ,R2,RATC,PPMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB,VA,VB,UC, 
1 VC , TRANU , TRANL , CONE , CTWO , CTHR, EP, RN, SO , THNOS , DZ 
COMMON 76/ FAIMG(3),FBIMG(3),SAIMG(3),SBIMG(3),XAIMG(3),XBIMG(3),Y 
1 AIMG(3) ,YBIMG(3) 

REAL MACHA.MACHB 

COMMON /l / MACHA.MACHB, ANGLA, ANGLB 

COMPLEX BP.ETJ 

COMMON /8/ BP(65) ,ETJ(65) 

REAL MACH 

COMMON /A/ GAMMA, MACH, RHOINF, EMU.QSTRSQ 

COMMON /G/ N1 ,N3,N4,N7,M1 

COMPLEX U1 , VI , FI , SI , LAMDAP, LAMDAM, TAU 

NT=NF+1 

C READ IN PSI 
CALL READX(2) 

FAC=SQRT( 2 . *( 1 . -MACH*MACH) /FLOAT( NF) ) 

ROOT2 =1 . /SQRT( 2 . ) 

CONI =1 . /SQRT( FLOAT( NF) ) 

DO 30 K=1 ,NF 
DO 10 J=2, NF 

10 ARRAY(K,J)»FAC*ARRAY(K,J) 

DO 20 J=1 , 3 

20 RHS(K, J) =RHS(K, J) *FAC 

ARRAY (K,NF) =ARRAY(K,NF) *R00T2 
30 ARRAY(K, 1 ) =C0N1 

C FIND COEFFICIENTS OF REGULAR SOLUTIONS 
CALL LEQ (ARRAY, RHS, NF,3, 1 28,1 29, SX) 

THE FOLLOWING FILTER IS USED FOR THE KORN AIRFOIL 
IT MAY BE USEFUL FOR OTHER DESIGN CASES 
FILTER THE COEFFICIENTS OF PSI, PHI, X AND Y 
DO 35 K=3,NF 
DO 35 M=1 ,3 
IFAC=(K-1)/2 

COFAC=( PI+PI) *FLOAT( IFAC)/FLOAT( NF) 

FILT=SIN(COFAC ) /COFAC 
35 RHS(K,M)=FILT*RHS(K,M) 

READ IN PHI 
CALL READX(I) 

DO 60 K=1 , NF 
DO 40 J=1 , 3 

40 RHX(K, J)=FAC*RHX(K, J) 

DO 50 J=2, NF 

50 ARRAY (K, J) =FAC* ARRAY (K, J) 

60 ARRAY(K,NF)=ARRAY(K,NF)#R00T2 
DO 90 M=1 , 3 
DO 80 K=1 , NF 
SX=-RHX(K,M) 



DO 70 J=2, NF 

70 SX=SX+RHS( J,M)*ARRAY(K, J) 

30 PHS(K,M)=SX 

PHS(NF+1 ,M)=PHS(1 ,M) 

IF (M.NE.3) GO TO 90 
PHS( NF+1 ,3) =PHS( 1 , 3) +( PI+PI) *FAC 
90 CONTINUE 
C READ IN Y 

CALL READX(4) 

DO 1 1 0 M=1 , 3 
DO 1 1 0 K-1 , NF 

IF (M.EQ.1) ARRAY(K,NF)=ARRAY(K,NF)*R00T2 
SX=-RHX(K,M) 

DO 100 J=2 , NF 

100 SX=SX+RHS( J,M) * ARRAY (K, J) 

IF (K.EQ.1) RHY(NT,M)=FAC*(SX-RHX(NT,M)+RHX(1 ,M)) 

110 RHY(K,M)=FAC*SX 
C READ IN X 

CALL READX( 3) 

DO 1 30 M»1 , 3 
DO 1 30 K-1 , NF 

IF (M.EQ.1) ARRAY(K.NF) =ARRAY(K,NF) *R00T2 
SX=-RHX(K,M) 

DO 120 J=2, NF 

120 SX=SX+RHS( J,M) * ARRAY (K,J) 

IF (K.EQ.1) RHX(NT,M)=FAC*(SX-RHX(NT,M)+RHX(1,M)) 

130 RHX(K,M)=FAC*SX 

C FIND COEFFICIENTS OF EXPANSION FOR PHII, X AND Y 
CALL GET ABC ( AF, BF, CF, FAC, RES, CL) 

C ARRAY RHS CONTAINS COEFFICIENTS OF REGULAR TERMS OF EXPANSION 
DO 140 K-1 ,NF 

RHS( K , 1 ) = AF*RHS ( K , 1 ) +BF* RHS ( K , 2 ) +CF* RHS ( K , 3 ) 

140 CONTINUE 
NFH=NF/2 
DO 1 50 J-1 , NFH 

150 ETJ( J) -CMPLX(RHS(2 # J+1 , 1 ) , RHS(2*J, 1 ) ) 

ET J( NFH) =CMPLX( 0 . , RHS( NF, 1 ) *R00T2 ) 

ETJ( 65 ) =RHS( 1 , 1 ) /SQRT( 2 . *( 1 . -MACH*MACH) ) 

C FIND IMAGINARY CONSTANTS NEEDED FOR SUPERSONIC SOLUTION 
U1 =UA 
VI =VA 

CALL LAMBDA (U1 , VI , LAMDAP, LAMDAM,TAU,XIA,CONJG(XIA) ,1 ) 

FAREAL=-AF 

FAIMG(1 ) =-BF 

FBIMG( 1 ) =-CF 

SBIMG(1)=0. 

IF (NB.NE.1) FBIMG(1 ) =FBIMG(1 )-FAIMG(1 ) 

. FI =CMPLX( FAREAL, FAIMG( 1 ) ) 

SI -FI /TAU 
SAIMG(1)=AIMAG(S1 ) 

IF (NB.NE.1) SBIMG( 1 ) — SAIMG( 1 ) 

CALL CONST ( 1 ) 
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ANGR0T=ATAN2(-XBIMG( 1 ) ,-Y3IMG( 1 ) ) 

RCTATE=CMPLX(COS( ANGROT) , SIN( ANGROT) ) 

DT=-( PI+PI) *CMPLX(XAIMG( 1 ) +XBIMG( 1 ) ,YAIMG( 1 ) +YBIMG( 1 ) ) ^ROTATE 
C COMPUTE DIFFUSION FACTOR 
DF=0. ■ 

IF (NB.EQ.1) GO TO 160 
QSB=UB*UB+VB*VB 
QSA=UA*UA+VA*VA 
XI =VA*YBIMG( 1 ) +UA*XBIMG( 1 ) 

Y1 =VB*YBIMG( 1 ) +UB*XBIMG( 1 ) 

TURN=X1 -Y1 

DF=1 .-SQRT(QSA/QSB) +PI*TURN/SQRT(QSB) 

160 WRITE ( N1 ) MACH, CL, DF,XAIMG(1),XBIMG(1),YAIMG(1),YBIMG(1), ROTATE 
RETURN 
END 


SUBROUTINE READX (INDX) 

C RESULTS OF INTEGRATION COLLECTED IN ARRAY FOR USE IN AUTQ2 
C INDX = 1 FOR PHI, INDX=2 FOR PSI, INDX=3 FOR X, INDX=4 FOR Y 

COMMON PHS(129,3) ,RHX(129,3) ,RHY(129,3) ,RHS( 129, 3) , U ( 1 29 ) , V( 129) 
COMMON ARRAY( 128, 128) 

COMMON /I/ NP,KBM,MODE, NF, NN,MM,NI, NX, IS,KC,LBM, JJ,KK,NB, NC.MRP, NJ 
1 , KF, MBPS, NFC , NRN, NPTS, NT, IPLT,LOFF,KP,NOSE,NCAS 
COMMON /2/ PI, TP,GRID,TOL 
COMPLEX XIA,XIB,XIC ,DZ 

COMMON /3/ R, R1 , R2, RATC, PH^N,GAM,WTAIL,XIA,XIB,XIC,UA,UB, VA, VB,UC, 
1 VC , TRANU , TRANL , CONE , CTWO , CTHR, EP, RN, SO , THNOS , DZ 
COMMON /G/ N1 ,N3,N4,N7,M1 
DIMENSION DATA( 4, 20), SING(4), BPER(^,3) 

DIMENSION SXY(4, 10), RXY(4,129) 

IF (Ml . NE. N1 ) REWIND Ml 
REWIND N1 
READ (Ml ) 

READ (Ml) 

READ (Ml ) 

KX=0 

NS=NF/NP 

N0SE=NF/(2*NP) 

DO 160 L=1 , NP 
MX=0 

DO 110 1=2, NF,KBM 

M=I-1 

MX=MX+1 

NX=MINO(KBM,NF-M) 

IF (MX.GT.3) GO TO 20 


\ 
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READ (N1 ) (SING(IK) ,IK=1 ,4) 

DO 10 IK-1,4 
10 BPER( IK,MX)=SING( IK) 

20 READ (N1 ) K1,K2 

IF (Ml .EQ.N1 ) GO TO 30 
IF (MX.LE.3) READ (Ml) 

READ (Ml) 

30 INC--1 

K=KX+(K2-1 ) +1 

C K1.GT.0 FOR TRANSONIC AND SUPERSONIC PATHS 
C READ POINTS IN REVERSE ORDER FOR THESE PATHS 
IF (K1 .GT.O) GO TO 40 
INC-1 
K=KX 

40 DO 110 LL-1 ,K2 

C SKIP PAST FIRST POINT FOR EACH SUBSONIC PATH 
IF ( (LL. EQ. 1 ) .AND. (K1 .EQ.O) ) GO TO 80 
C SKIP PAST LAST POINT ON TRANSONIC PATHS 
IF ( (LL. EQ.K2) .AND. (K1 .GT.O.)) GO TO 80 
K-K+INC 

READ ( N1 ) UK, VK, ( (DATA( IK, J) , IK=1 , 4) , J=1 , NX) , ( SING( IK) , IK=1 ,4) 

IF (MX.GT. 3) GO TO 50 
U(K) =UK 
V(K) =VK 

RHX(K,MX) =SING( INDX) 

50 DO 60 J-1 ,NX 

60 ARRAY(K , J+M) =DATA( INDX, J) 

IF ( N1 .EQ.M1 ) GO TO 110 

READ (Ml) UK, VK, ( (DATA( IK, J) , IK=1 , 4) , J=1 , NX) , (SING( IK) , IK-1 ,4) 

C DO RICHARDSON EXTRAPOLATION 
DO 70 J-1 , NX 

70 ARRAY(K,J+M)=(4.*ARRAY(K,J+M)-DATA(INDX,J))/3. 

IF (MX.GT. 3) GO TO 110 
RHX(K,MX)=(4. *RHX(K,MX)-SING( INDX) )/3. 

GO TO 110 

80 IF (L.LE.2) GO TO 90 
READ ( N1 ) 

IF (N1 .NE.M1) READ (Ml) 

GO TO 110 
90 CONTINUE 

READ (N1 ) DUM,DUM,(DUM,DUM,RXY(2*L-1 , J+M) ,RXY(2*L, J+M) ,J=1 ,NX) ,DUM 
1 ,DUM,SXY(2*L-1 ,MX),SXY(2*L,MX) 

IF (Ml .EQ.N1) GO TO 110 

READ (Ml) DUM.DUM, (DUM,DUM,DATA(3» J) ,DATA(4, J) , J=1 , NX) ,DUM,DUM,SIN 
1 G( 3) ,SING(4) 

C RICHARDSON EXTRAPOLATION FOR LEADING EDGE CORRECTION 
DO 100 J=1 , NX 

RXY (2*L-1 , J+M)=(4. *RXY(2*L-1 , J+M)-DATA(3, J) )/3» 

100 RXY(2*L, J+M) =(4. *RXY(2*L, J+M)-DATA(4, J) )/3. 

SXY(2*L-1 ,MX)=(4. #SXY(2*L-1 ,MX)-SING(3) )/3- 
SXY(2*L,MX) =(4. *SXY(2*L,MX)-SING(4) )/3. 

110 CONTINUE 
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C CORRECT X AND Y NEAR LEADING EDGE 

IF ((L. NE.2) .OR. ( INDX.LE.2)) GO TO 1 60 
DO 130 M=2,NF 

COR= RXY ( INDX.M )- ARRAY( NS ,M ) 

ARRAY ( NOS E , M )= ARRAY ( NOS E , M )-. 5 *COR 
DO 120 KZ=NGSE, NS 
120 ARRAY ( KZ ,M) =ARRAY (KZ , M) +COR 
130 CONTINUE 
DO 150 M=1 ,3 

COR=SXY ( INDX ,M ) - RHX ( NS , M ) 

RHX( NOSE, M)=RHX( NOSE, M)-.5*C0R 
DO 140 KZ=NOSE, NS 
140 RHX(KZ,M) =RHX(KZ,M) +COR 
150 CONTINUE 
160 KX=KX+(K2-1 ) 

IF (INDX. NE.2) GO TO 1 80 
DO 170 M=1 ,3 
DO 170 K=1 ,NF 
170 RHS(K,M)=RHX(K,M) 

RETURN 

180 IF ( INDX.EQ. 1 ) GO TO 230 
C SECOND CORRECTION AT LEADING EDGE 
DO 200 M=1 ,3 

BJUMP=SXY( INDX-2 ,M)-TP*BPER( INDX.M) 
COR=RHX(NF,M)-BJUMP 
RHX( NOSE, M ) =RHX( NOSE, M )- . 5 *COR 
DO 190 KZ=1 , NOSE 
190 RHX(KZ,M)=RHX(KZ,M) +COR 
200 CONTINUE 

DO 220 M=2 , NF 

COR= ARRAY ( NF , M )-RXY ( INDX-2 ,M ) 

ARRAY ( NOSE ,M )= ARRAY ( NOSE ,M )-. 5 *COR 
DO 210 KZ=1 , NOSE 
210 ARRAY (KZ,M) =ARRAY (KZ,M)+COR 
220 CONTINUE 
230 DO 240 M=1 ,3 

240 RHX(NF+1 ,M)=RHX(1 ,M)- (PI+PI) #BPER( INDX,M) 
RETURN 
END 


SUBROUTINE GETABC (AF, BF,CF,CX,DMAX,CL) 

FINDS COEFFICIENTS OF PHII AND COMPUTES FLOW QUANTITIES ON 
THE ELLIPSE 
COMPLEX XIBODY 

COMMON PHS(129,3) ,RHX(129,3) ,RHY(129,3) ,RHS(129,3) ,U(129) , V( 129) 
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COMMON DPHI(130,3) , PHIPP(130 f 3) ,PHIP3(130,3) ,PHINT(130) ,DPHII(130) 

1 , PHIIPPC1 30) , PHIIP3( 1 30) , PHIX( 1 30) , PHII( 1 30) ,STAG( 1 30) ,XIB0DYt200) 
2 , UBODY ( 200 ) ,VB0DY(200) ,XB0DY(200) ,YB0DY(200) ,0M(130) ,AX(130) ,ZERO( 
3300) 

DIMENSION THB0DY(300) 

COMMON /I / np,kbm,mode,nf,nn,mm',ni,nx,is,kc,lbm,jj,kk,nb,nc,mrp,nj 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF.KP, NOSE, NCAS 
COMMON /2 / PI, TP, GRID, Ta 
COMPLEX XIA,XIB,XIC,DZ 

COMMON /3/ R, R1 , R2, RATC, PHMN, GAM, WTAIL, XIA,XIB,XIC,UA,UB, VA, VB.UC, 
1 VC , TRANU , TRANL, CONE , CTWO , CTHR, EP , RN, SO , THNOS , DZ 
COMMON /6/ FAIMG(3) ,FBIMG(3) ,SAIMG(3) ,SBIMG(3) ,XAIMG(3) ,XBIMG(3) ,Y 
1AIMG(3),YBIMG(3) 

REAL MACHA.MACHB 

COMMON /7/ MACHA.MACHB, ANGLA.ANGLB 

COMPLEX BP.ETJ 

COMMON /8/ BP(65) ,ETJ(65) 

COMMON ■ /G/ N1 , N3 , N4 , N7 ,M1 

COMMON /W S INGX , SINGY , SINGXO , SINGYO 

DIMENSION PKIWT( 3) , DPDW0(3), PHIW0(3) 

DATA RELAX/. 8/ 

N1 =M1 
REWIND N1 
READ (Ml) 

READ ( N1 ) 

READ ( N1 ) NT, (PHII( J) , J=1 ,NT) 

C CONSTRUCT ARRAY OF EVENLY SPACED POINTS AROUND RING 
DW=TP/FLOAT( NF) 

NOSE=NF/ ( NP+NP) 

0M( 1 ) =-FLOAT( NOSE-1 ) *DW+THNQS-TP 
DO 10 K=1 , NF 
0M(K+1 ) =QM(K)+DW 
ZERO(K) =0 . 

10 CONTINUE 
DO 20 M-1 ,3 

C SPLINE FIT EACH OF THE SINGULAR SOLUTIONS 

CALL PSPLIF (NT, OM.PHSO ,M) ,DPHI( 1 ,M) ,PHIPP( 1 ,M) , PHIP3( 1 ,M) , PHINT) 
PHIWO(M)=PHS(NOSE,M) 

DPDWO(M) =( PHS( NOSE+1 ,M)-PHS( NOSE-1 ,M))/(DW+DW) 

20 CONTINUE 

CF=GAM/ ( PHS( NT, 3)-PHS( 1 , 3) ) 

WELL=GAM-PHMN 

WTAIL IS RING ANGLE CORRESPONDING TO THE TAIL 
THE FIRST EQUATION REQUIRES DPHI/DW=0 AT STAGNATION 
All =DPDW0(1) 

A1 2=DPDW0(2) 

C ITERATE AT MOST 20 TIMES TO FIND WTAIL 
DO TO J-1,20 
DO 30 M-1 ,3 

C EVALUATE PHI(WTAIL) FOR EACH SINGULAR SOLUTION 

CALL INTPL (1 .WTAIL, PHIWT(M), CM, PHS(1 ,M) ,DPHI(1 ,M),PHIPP(1 ,M),PHIP 
13(1, M)) 
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30 CONTINUE 

C FIX PHI AT TRAILING EDGE - PHI AT STAGNATION 
A21 =PHIWT( 1 )-PHIWO( 1 ) 

A22=PHIWT(2)-PHIW0(2) 

B2=-CF*(PHIWT(3)-PHIWO(3) ) +WELL 
B1 =-CF*DPDW0(3) 

BF=( A1 1 *B2-A21 *B1 ) / ( A1 1 *A22-A21 *A1 2) 

AF=( A22*B1 - A1 2 *B2 ) / ( A1 1 *A22-A21 *A1 2) 

DO 40 K=1 , NT 

PHIX(K)=AF*PHS(K, 1 ) +BF*PHS(K,2) +CF*PHS(K,3) 

DPHII(K) =AF*DPHI(K, 1 ) +BF#DPHI(K, 2) +CF#DPHI(K, 3) 
PHIIPP(K)=AF*PHIPP(K,1)+BF*PHIPP(K,2)+CF*PHIPP(K,3) 

PHIIP3 (K) =AF*PHIP3 (K, 1 ) +BF*PHIP3(K, 2) +CF*PHIP3(K, 3) 

40 CONTINUE 

C FIND THE LOCATION OF THE TAIL 
NSTAG=-NF 

CALL INTPLI (NSTAG.STAG, ZERO, NT, OM.DPHII, PHIIPP, PHIIP3, ZERO) 

WOLD=WTAIL 

WTAIL=STAG(1 ) 

IF ( NS TAG. LE. 1 ) GO TO 60 
DO 50 LL=2 , NS TAG 

IF ( ABS(STAG(LL)-WOLD) .LT. ABS(WTAIL-WOLD) ) WTAIL= STAG ( LL) 

50 CONTINUE 

60 IF (ABS(WTAIL-WOLD).LT.TOL) GO TO 80 
70 CONTINUE 

WRITE (N4.130) WTAIL 
80 DMAX=0. 

C PHIX IS THE VELOCITY DISTRIBUTION AROUND THE ELLIPSE 
DO 90 J=1 , NT 

90 PHIX( J) =AF*PHS( J, 1 ) +BF*PHS( J, 2) +CF*PHS( J, 3) 

KTAIL= ( WTAIL+P I )/DW 
KX=ABS( (QM( 1 ) -WTAIL) /DW) +1 
JX--(PI+0M(1 ))/DW+1 
JX— (PI+CM(1))/DW+1 .-TOL 
PHINOS=PHIX( NOSE) 

XNOSE=AF*RHX(NOSE, 1 ) +BF*RHX(NOSE f 2) +CF*RHX(NOSE, 3) 

YNOSE=AF*RHY ( NOSE, 1 ) +BF*RHY(N0SE,2)+CF*RHY(N0SE,3) 

RFAC=RELAX-1 . 

KM=1 

U ( NT ) =U ( 1 ) 

V(NT)=V( 1 ) 

DELX= - . 5 *( AF*( RHX( NT, 1 ) -RHX( 1 , 1 ) ) +BF* ( RHX( NT, 2) -RHX( 1,2)) +CF* ( RHX( 
1 NT, 3)"RHX(1 , 3) ) ) 

DELY=-.5*( AF*(RHY(NT, 1 )-RHY(1 , 1 ) ) +BF*(RHY(NT,2)-RHY(1 ,2) )+CF*(RHY( 
1 NT, 3)"RHY( 1 , 3) ) ) 

RAT=(0M(KX+1 ) -WTAIL) /DW 

XIBODY( 1 ) =CMPLX( R1 *COS(WTAIL) , R2*SIN(WTAIL) ) 

C GET U AND V AT TRAILING EDGE BY LINEAR INTERPOLATION 
UBODY( 1 ) =RAT*U(KX) +( 1 . -RAT) *U(KX+1 ) 

VB0DY(1 )=RAT*V(KX)+(1 .-RAT) *V(KX+1 ) 

THB0DY(1 ) =CM(KX) 

C FIND ALL QUANTITIES AROUND THE ELLIPSE 



DO 110 K=1 ,NF 
J=K+KX 

C XBODY , YBODY , UBODY , VBODY ARE STORED FROM TAIL TO TAIL 

IF (J.GT.NF) J=J-NF 
IF (J.NE.1) GO TO 100 
DELX=-DELX 
DELY=-DELY 
XNQSE=XNOSE+DELX 
YNOSE=YNQSE+DELY 

1 00 XBODY (K+1 ) =AF*RHX( J, 1 ) +BF*RHX( J, 2) +CF*RHX( J, 3) 

YBODY (K+1 ) =AF*RHY( J, 1 ) +BF*RHY( J, 2) +CF*RHY( J, 3) 

XBODY (K+1 ) =XB0DY(K+1 ) +DELX 
YBODY (K+1 ) = YBODY ( K+1 ) +DELY 
XIB0DY(K+1 ) =CMPLX(R1 *COS(OM( J) ) , R2*SIN(0M( J) ) ) 

THBODY (K+1 ) =THBODY (K) +DW 
VBODY (K+1 ) =V( J) 

UB0DY(K+1 )=U( J) 

C PHII IS STORED FROM -PI TO PI 
J=JX+K 

IF (J.EQ.NT) PHINOS=PHINOS-GAM 
IF (J.GT.NF) J=J-NF 
PHIIK=PHIX(J)-PHINOS 
AX(K)-PHIIK-PHIKK) 

PHII(K) =PHIIK+RFAC*AX(K) 

IF (K. LT.KTAIL) PHII(K) -AMAX1 (PHII(K) , PHII(KM) ) 

KM=K 

IF ( ABS( AX(K) ) . LT.DMAX) GO TO 110 
DMAX=ABS(AX(K) ) 

110 CONTINUE 

XIBODY (NT+1 ) =XIBODY ( 1 ) 

UB0DY(NT+1 )=UBODY( 1 ) 

VBODY ( NT+1 ) =VBODY ( 1 ) 

THBODY ( 1 ) =WTAIL 
THBODY (NT+1 ) =WTAIL+TP 

C FIND X AND Y AT THE TRAILING EDGE BY FOUR POINT INTERPOLATION 
B1 =.5*(1.+RAT) *(2.-RAT) 

B2 =RAT»( RAT-1 ,)/6. 

XX=RAT*(XB0DY(NF+1 )-DELX) +( 1 .-RAT) *(XB0DY(2) +DELX) 

YY=(2.-RAT) *(XBODY(NF)-DELX) +(1 .+RAT)*(XB0DY(3)+DELX) 

XX=B1 *XX+B2 *YY 
XBODY ( 1 ) =XX- DELX 
XBODY (NT+1 ) =XX+DELX 

XX= RAT* ( YBODY (NF+1 )-DELY)+( 1 .-RAT) *( YBODY (2) +DELY) 

YY -( 2 RAT) *( YBODY ( NF )- DELY ) +( 1 .+ RAT) *( YBODY O DELY ) 

YY=B1 *XX+B2*YY 
YBODY ( 1 ) = YY-DELY 
YBODY ( NT+1 ) =YY+ DELY 
PHII( NT) =PHII( 1 ) +GAM 
NTP=NT+1 

N0SE=1 +KX-( NOSE-1) 

CL= ( CF+CF) *( PHS( NF+1 , 3 ) -PHS( 1 , 3) ) 

DO 1 20 K=1 , NTP 
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XBODY ( K ) = XBOD Y ( K ) - XNOSE 
120 YBODY(K)=YBODY(K)-YNOSE 
SINGXO=DELX- XNOSE 
S INGYO = DE LY- YNOS E 
AF=AF*CX 
BF=BF*CX 
CF=CF*CX 
REWIND N1 
READ ( N1 ) 

READ (N1 ) 

WRITE (N1 ) NT, (PHII( J) , J=1 , NT) 

WRITE ( N1 ) WTAIL, NTP, (XIBODY( J) , THBODY( J) ,UBODY( J) , VBODY( J) ,XBODY( 
1 J) , YBODY( J) , J=1 , NTP) , NBPS, ( BP( J) , J=1 , NBPS) 

RETURN 

130 FORMAT (* WTAIL DID NOT CONVERGE, WTAIL= *,E20.10) 

END 


SUBROUTINE OUTPT (TC,GAP,GC) 

C ORGANIZES OUTPUT DATA AND WRITES ON OUTPUT TAPE 4 
REAL MAVE 
REAL MACHN, KAPPA 

COMPLEX XI , XIBODY , ROT , XIP , ETAP , ROCTA, ROOTB , ROTATE 
COMMON SEPRC300) ,QL(300) ,XI(300) ,XIBODY(300) ,UB0DY(300) , VBODY(300) 
1 ,XBODY(300) ,YB0DY(300) ,H(300) ,THETA(300) ,ANGL(300) ,MACHN(300) ,KAPP 
2A(300) ,XREAL(300) ,YREAL(300) , S(300) 

COMMON FP(300) ,FPP(300) ,FPPP(300) ,GP(300) ,GPP(300) ,GPPP(300) 

COMMON ILINE(300), JLINK(300),NPT(300),CM(300) 

COMMON /I / NP,KBM,MODE, NF, NN,MM,NI, NX, IS,KC ,LBM, JJ,KK, NB, NC.MRP, NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF, KP, NOSE, NCAS 
COMMON /2/ PI, TP.GRID.TOL 
COMPLEX XIA,XIB,XIC,DZ 

COMMON /3/ R, R1 , R2, RATC.PHMN, GAM, WTAIL, XIA,XIB,XIC,UA,UB, VA, VB.UC, 
1 VC , TRANU, TRANL, CONE, CTWO , CTHR, EP, RN, SO, THNOS, DZ 
COMMON /6/ FAIMG(3),FBIMG(3),SAIMG(3),SBIMG(3),XAIMG(3),XBIMG(3),Y 
1 AIMG(3) ,YBIMG(3) 

REAL MACHA.MACHB 

COMMON /l / MACHA.MACHB, ANGLA.ANGLB 
REAL MACH 

COMMON /A/ GAMMA, MACH, RHOINF, EMU.QSTRSQ 

COMMON /G/ N1 , N3 , N4 , N7 ,M1 

EMACH(QS) =SQRT(QS/(COSQ-( (GAMMA-1 . )/2. ) *QS) ) 

RAD=1 80. /PI 
GAMM=.5*(GAMMA-1 . ) 

CQSQ=GAMM+1 . / (MACH*MACH) 

MAVE= . 5*( ABS(MACHA) +ABS(MACHB) ) 
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ANGR0T=ATAN2(-XBIMG( 1 ) ,-YBIMG( 1 ) ) 

C READ IN POINTS NEAR SONIC SURFACE AND WRITE ON OUTPUT TAPE 
END FILE U7 
REWIND N7 

IF (EOF(N7) .NE.O) GO TO 20 
WRITE (i^, 260) 

WRITE (N4.360) 

10 READ (NT) K1 ,XIP, ETAP, ROOTA, ROOTB . 

IF (E0F(N7) .NE.O) GO TO 20 
WRITE (N4.370) K1 ,XIP, ETAP, ROCfTA, ROOTB 
GO TO 10 
20 CONTINUE 

C NOW USE TAP E7 TO STORE REAL SUPERSONIC CHARACTERS IT ICS FOR PLOTS 
REWIND W 

IF ( N1 .NE.M1 ) REWIND N1 
REWIND Ml 
READ (Ml) 

READ (Ml ) 

READ (Ml) 

READ (Ml) WTAIL.KP, (XIBODY( J) ,OM( J) ,UBODY( J) ,VBODY( J) ,XBODY( J) ,YBO 
1 DY( J) , J=1 , KP),NBPS,( ROTATE, J=1 ,NBPS) 

READ (Ml) MACH, CL, DF,XAIMG( 1 ) ,XBIMG( 1 ) , YAIMG(1 ) , YBIMG( 1 ) , ROTATE 
XMIN=XBODY( 1 ) 

DO 121 K=2 ,KP 

121 XMIN=AMIN1 (XMIN.XBODY(K)) 

XMAX= . 5 *( XBODY ( 1 ) +XB0DY (KP ) ) 

SCALE=1 . /(XMAX-XMIN) 

COSA=REAL( ROTATE) 

SINA=AIMAG( ROTATE) 

C FIND SUPERSONIC BODY POINTS 
READ ( N1 ) THF.THL 
IF (N1.NE.M1) READ (Ml) DUM,DUM 
KL=KP 

DTH=PI/FLOAT( NF) 

DO 30 J=1 ,KP 
ILINE( J) =0 

IF (OM(J).LT.THF) GO TO 30 
JF=J 

IF ((OM(J)-THF) .GT.DTH) JF=J-1 
CALL BDYPTS ( JF,THF,THL,KL,KM) 

30 CONTINUE 

C CREATE A POINTER LIST TO LOCATE BODY POINTS 
JLINK( 1 ) =1 
KP=KL 

DO HO K=2 , KP 
JLINK(K)=JLINK(K-1 ) +1 

40 IF ( ILINE( JLINK(K) ) .GT.O) JLINK(K)=ILINE( JLINK(K) ) 

C COMPUTE OUTPUT DATA AND INITIALIZE FOR NASHMCDONALD 
DIS=0. 

C DROP STAGNATION POINT IN ALL OUTPUT DATA 
L=0 

DO 50 M=1 ,KP 
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K=JLINK(M) 

QS=UBODY(K) *UBODY(K ) + VBODY (K ) *VBODY(K) 

EMN=EMACH(QS) 

IF (EMN.LT..Q05) GO TO 50 
L=L+1 

XREAL( L) =XBODY(K) *COS A-YBODY (K ) *SINA 
YREAL( L) =XBODY (K) *SINA+YBODY (K) *COSA 
QL( L) =SQRT(QS) 

MACHN( L) =EMN 

ANGL( L) = ATAN2 ( UBODY (K ) *SINA+ VBODY (K ) *COSA, UBODY (K ) *COS A-VBODY (K ) *S 
1 INA) 

IF (L.EQ.1) GO TO 50 
DX=XREAL( L)-XREAL( L- 1 ) 

DY= YRE AL( L) - YRE AL( L- 1 ) 

DIS=DIS+SQRT(DX*DX+DY*DY ) 

50 CONTINUE 
KP=L 

C SCALE TOTAL ARC LENGTH OF PROFILE TO 2 
SCLE=2./DIS 
SOLE => SCALE 
CTHR=SCLE 
DO 60 L=1 ,KP 
XREAL( L) =XREAL( L) *SCLE 
60 YREAL( L) =YREAL( L) *SCLE 
CL=SCLE*CL 
CL=2. *SCLE*GAM 

C DEFINE QUANTITIES FOR BOUNDARY LAYER CORRECTION 
KQMIN=1 
KCHAX=1 
QMIN=MACHN( 1 ) 

CMAX=GMIN 
H( 1 ) =0 . 

THETA( 1 ) =0. 

S(1)=0. 

KAPPA(KP) =0 . 

ROT=CMPLX(XREAL( 1 ) ,-YREAL( 1 ) ) 

ROT=ROT/CABS(ROT) 

C . XBODY.YBODY WILL BE ROTATED TO THE HORIZONTAL 
Cl =REAL(ROT) 

SI =AIMAG(R0T) 

XBODY ( 1 ) =XREAL( 1 ) *C1-YREAL( 1 ) *S1 
YBODY( 1 ) =XREAL( 1 ) *S1 +YREAL( 1 ) *C1 
DO 70 L=2 , KP 
H( L) =0 . 

THETA( L) =0. 

SEPR( L) =0. 

IF (MACHN(L) .GT.QMAX) KCMAX=L 
IF (MACHN( L) . LT.QMIN) KC^IN=L 
QMIN=AMIN1 (MACHN( L) ,QMIN) 

QMAX=AMAX1 (MACHN( L) , QMAX) 

DX=XREAL( L)-XREAL( L-1 ) 

DY=YREAL( L)-YREAL( L- 1 ) 



- 153 - 


IF (ANGL(L)-ANGL(L-1).GT.PI/2.) ANGL( L) =ANGL( L)-PI 
DTH=ANGL( L)-ANGL( L-1 ) 

FAC=1 . 

IF (DTH.NE.O.) FAC=.5*DTH/SIN(.5*DTH) 
DS=FAC*SQRT(DX*DX+DY*DY) 

S(L) -S(L-1)+DS 

KAPPA(L-I)— DTH/DS 

XBODY ( L) =XREAL( L) *C1 - YREAL( L) *S1 
YBODY( L) =XREAL( L) *S1 +YREAL( L) *C1 
70 CONTINUE 
LTRU=KP+2 
LTRL=-1 

IF (RN.LE.O.) GO TO 120 

C NA3HMC FINDS MOMENTUM THICKNESS OF BOUNDARY LAYER ON AIRFOIL 
L=KQMAX 

IF (TRANU.LT.O.) GO TO 90 • 

DO 80 L=KQMIN,KP 
IF (XREAL(L).GE.TRANU) GO TO 90 
80 CONTINUE 

WRITE (N4.290) 

GO TO 120 

90 XTRANS=XREAL( L) 

LTRU=L 

CALL NASHMC (L.KP.RN) 

IF (TRANL.GT.O. ) XTRANS=TRANL 
DO 100 L-1 .KQMIN 

IF (XREAL(L) .LE.XTRANS) GO TO 110 
100 CONTINUE 

IF (RN.NE.O.) WRITE (M,290) 

110 LTRL=L 

CALL NASHMC (LTRL, 1 , RN) 

120 CONTINUE 
LC=1 8 

IF (NB.EQ.1) LC-11 

C COMPUTE THICKNESS- CHORD RATIO 

CALL SPLIF (KP, S.XREAL, FP, FPP, FPPP, 3|0. ,3*0. ) 

CALL SPLIF (KP,S,YREAL,GP,GPP,GPPP,3»0. ,3»0.) 

DIS-O. 

DO 130 J=2,KP 
DX=XREAL( J ) - XREAL( 1 ) 

DY=YREAL( J)-YREAL(I) 

DNEW=SQRT(DX*DX+DY*DY ) 

IF (DNEW.LT.DIS) GO TO 1 ^40 
130 DIS=DNEW 
1140 CHRD=DIS 
CHRD=1 . 

THK=0. 

DO 160 J-1 ,KP 
SN=S(KP)-S( J) 

CALL INTPL (1 .SN.XN.S.XREAL.FP, FPP, FPPP) 

CALL INTPL (1 ,SN,YN,S,YREAL,GP,GPP,GPPP) 

XN=XN-XREAL( J) 
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YN=YN-YREAL( J) 

THN= SQRT ( XN* XN+ YN* YN ) ' 

IF (THN-THK) 160,160,150 
1 50 THK=THN 
160 CONTINUE 
TC=THK/CHRD 

C COMPUTE GAP-TO-CHORD RATIO 

GAP=SCLE*( PI+PI) *SQRT(XBIMG( 1 ) *XBIMG( 1 ) +YBIMG( 1 ) *YBIMG( 1 ) ) 
GC=GAP/CHRD 

DX=-SCLE*( PI+PI) *( (XAIMG(1 ) +XBIMG(1 ) ) *C0SA-(YAIMG(1 ) +YBIMG(1 ) ) *SIN 
1 A) 

DY=-SCLE*( PI+PI) *( (XAIMG( 1 ) +XBIMG( 1 ) ) *SINA+(YAIMG( 1 ) +YBIMG( 1 ) ) *COS 
1 A) 

DZ=CMPLX(DX,DY) 

C WRITE OUTPUT DATA ONTO TAPE 4 

WRITE ( N4 , 250 ) TC.CL 
EMA-ABS(MACHA) 

IF (NB.NE.1) GO TO 170 
WRITE (N4.270) EMA 
GO TO 180 
170 EMB=ABS(MACHB) 

IF ( EMB.GT. EMA) WRITE (N4.220) DF,GC 
IF (EMB.LT.EMA) WRITE (N4.230) GAP 
THA=90 . -ANGLA-RAD*ANGRCT 
THB=90 . -ANGLB-RAD*ANGRCT 
TURN=THA-THB 

WRITE (N4.240) EMB, THB, EMA, THA, TURN 
180 WRITE (N4.260) DX.DY 
WRITE (N4.320) 

WRITE (N4.330) 

SFAC=2. /(S(KP)-S(I ) ) 

DO .210 L=1,KP 
U=QL( L) *COS( ANGL( L) ) 

V=QL( L) *SIN( ANGL( L) ) 

ANG=RAD*ANGL( L) 

DELS=THETA( L) *H( L) 

XS=XREAL( L)-DELS*SIN( ANGL( L) ) 

YS=YREAL( L) +DELS*COS(ANGL( L) ) 

IF ((L.LT.LTRL) .OR. ( L.GT. LTRU) ) GO TO 1 90 
MSG=1 H 

IF (MACHN(L).LT.TOL) MSG=1 OHSTAGNATION 
IF (MACHN(L).LT.TOL) GO TO 200 

IF ( ( L. EQ. LTRL+1 ) . OR. ( L. EQ. LTRU-1 ) ) MSG=1 OHTRANSITION 
WRITE (N4.350) XREAL(L) ,YREAL'U) , ANG.KAPPA(L) ,MACHN(L) ,MSG,XS,YS 
GO TO 200 
190 CONTINUE 

WRITE (N4.340) XREAL(L),YREAL(L),ANG,KAPPA(L),MACHN(L),THETA(L),SE 
1 PR( L) ,XS, YS 
200 LC=LC+1 

S(L)=SFAC*S(L)-1 . 

IF (LC.LE.55) GO TO 210 
LC=4 
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WRITE (N4,280) 

WRITE (N4.330) 

210 CONTINUE 

WRITE (N4,380) RATC 
S(KP) =1 . . 

QS=U*U+V*V 

RT=( 1 . +GAMM*MAVE*MAVE) / ( 1 . +GAMM*MACHN( 1 ) *MACHN( 1 ) ) 

FAC=.25/( 1 . +GAMM*MACHN( 1 ) *MACHN( 1 ) ) 

HBT=FAC*( H(KP) +1 . ) + 1 . 

HBB=FAC*( H( 1 ) +. 1 ) +1 . 

CDF=2. *RT**3*( THETA(KP) *QS**HBT+THETA( 1 ) *QS**HBB) 

IF ( ABS(MACHA) . LE. ABS(MACHB) ) WRITE (N4,300) CDF 
END FILE N7 
REWIND Ml 
READ (Ml)., 

READ (Ml) 

WRITE (Ml) KP,EMB,EMA,TURN,CL,DX,DY, ROTATE, (UBODY(J) ,VBODY(J) ,XBOD 
1 Y( J) , YBODY( J) , XREAL( J) , YREAL( J) , S( J) , QL( J) ,MACHN( J) , J=1 , KP) 

WRITE (Ml) ( ANGL( J) , J=1 ,KP) 

IF (NB.EQ. 1) RETURN 
COSTE=COS( ANGL( 1 ) ) 

COSBET=COS( ANGROT+PI*( ANGLA+ANGLB)/360. ) 

FAC=(COSBET/CQSTE) *(1 . +. 1 25*CDF*( HBB+HBT) **2/(GAP*COSBET) ) 

CLOSS= ( CDF +CDF ) *FAC 

IF ( ABS(MACHB) .GT. ABS(MACHA) ) WRITE (N4.310) CLOSS 
RETURN 

220 FORMAT (34X, 1 7HDIFFUSION FACTOR=, F5. 3//39X.1 0HGAP/CH0RD=, P6. 3/) 

230 FORMAT (39X, 1 0HGAP/CH0RD=, F6.3/) 

240 FORMAT ( 1 3X, 1 8HINLET MACH NUMBER=, P6. 3, 1 5X,1 7HINLET FLOW ANGLE= , F7 
1.2//13X.18H EXIT MACH NUMBER*, F6. 3, 1 5X,1 7H EXIT FLOW ANGLE=, F7.2// 
235X , 1 4HTURNING ANGLE=, F7. 2/) 

250 FORMAT ( 1 HI /3 6X , 1 6HTHICKNESS/CH0RD=, P6. 4//32X, 1 2HC0EFFICIENT ,8H0F 
1 LIFT=, F6.4/) 

260 FORMAT (34X,3HDX=, P6. 4, 6X, 3HDY=, P6. 4/) 

270 FORMAT (40X.1 2HMACH NUMBER=, F6.3/) 

280 FORMAT ( 1 HI //) 

290 FORMAT (//52H**** TRANS IT ION NOT FOUND— BOUNDARY LAYER SKIPPED****) 

300 FORMAT ( 1 HD, 10X,27HPR0FILE DRAG COEFFICIENT = ,F6.4) 

310 FORMAT (1H0,10X,27H LOSS COEFFICIENT = , F6. 4) 

320 FORMAT ( 1 3X,45HCOORDINATES FRCM LOWER SURFACE TAIL TO UPPER ,12HSU 

1RFACE TAIL/) 

330 FORMAT (12X,1HX,7X,1HY,7X,3HANG,3X,1HK,7X,1^,5X,5HTHETA,4X,3HSEP, 
1 5X,2HXS,6X,2HYS/) 

340 FORMAT ( FI 5. 4, F8. 4, F8. 1 , F6. 2, F8. 4, 2F8. 5, F7. 4, FB. 4) 

350 FORMAT (FI 5.4, F8;4, F8. 1 , F6.2, F8. 4, 3X, A1 0, 3X, F7. 4, F8. 4) 

360 FORMAT ( 1 2X.52HLISTING OF POINTS ENCOUNTERED NEAR THE SONIC SURFAC 
1 E, ////8X, 4HM0DE, 7X, 2HXI, 1 3X.3HETA, 1 1X,7HR00T0LD, 1 1X4HR00T//) 

370 FORMAT (I12,8f8.3) 

380 FORMAT ( 1 HD, 1 0X.27H 
END 


RATC = ,P6.4) 
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SUBROUTINE BDYPTS ( JF, THF, THL, KL,MP) 

C ORGANIZES SOLUTION ON REAL SUPERSONIC CHARACTERISTICS 

COMMON /I / NP,KBM,MODE, NF, NN.MM, NI,NX, IS,KC, LBM, JJ,KK, NB, NC ,MRP, NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, L OFF, KP, NOSE, NCAS 
COMMON /2/ PI,TP,GRID,TOL 
COMPLEX XIA,XIB,XIC,DZ 

COMMON /3/ R, R1 , R2 , RATC,PHMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB, VA, VB,UC, 

1 VC , TRANU , TRANL, CONE , CTWO , CTHR, EP, RN, SO, THNOS , DZ 
COMMON /G/ N1 , N3 , N4 , N7 ,M 1 
COMPLEX XI , XIBODY 

COMMON SEPR(300) ,QL(300) ,XI(300) ,XIBODY(300) ,UB0DY(300) ,VBODY(300) 

1 ,XBODY(3O0) ,YB0DY(300),H(300),THETA(300),ANGL(300) ,MACHN(300) ,KAPP 
2A(300) ,XREAL(300) ,YREAL(300) ,S(300) 

COMMON FP(300) , FPP(300) , FPPP(300) ,GP(300) ,GPP(300) ,GPPP(300) 

COMMON ILDffi(300), JLINK(300),0M(300) 

DATA MM/O/ 

DARG=TP/FLOAT( NT-1 ) 

DTH=THL-THF+TOL 

MM IS TOTAL NUMBER OF SUPERSONIC XI CHARACTERISTICS WHICH HAVE 
BEEN READ FROM TAPE 

MP IS TOTAL NUMBER OF POINTS IN ARRAYS UBODY, VBODY 
KL IS NUMBER OF POINTS DEFINING AIRFOIL 

NDT IS THE NUMBER OF POINTS ON THE ELLIPSE ACROSS SONIC LINE 
IF (MM.EQ.O) MP=KP 
NDT=INT(DTH/DARG+1 .75) 

ILINE(JF) =MP+1 
C FIND BODY POINTS 

READ ( N1 ) KK.NN 
IR=NN/50+1 
IR=(NN-1 ) /IR+1 
WRITE (N7) IR 
IF (N1 . NE.M1 ) READ (Ml ) 

C CHECK NN ROWS FOR BODYPOINTS 

WRITE (N4,40) 

C M IS NUMBER OF BODY POINTS ON THIS SUPERSONIC ARC 
M=0 

DO 10 J=1 , NN 
M=M+1 
MM=MM+1 
READ (N1) K 

IF (N1 .NE.M1 ) READ (Ml) 

C INTERPOLATE TO FIND BODY POINT 

CALL INTERP ( J,K,MP+M,MX, THF) 

C IF MX=0 NO BODY POINT HAS BEEN POUND 
IF (MX.EQ.O) M=M-1 
10 IF (M.NE.1) ILINE(MP+M) =0 
MP=MP+M 
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KL=KL+M-NDT 
IF (M.NE.O) GO TO 20 
ILINE( JF)=JF+NDT 
GO TO 30 

20 ILINE(MP+1 ) =JF+NDT 

30 CONTINUE 

C READ IN ARGUMENT OF NEXT SUPERSONIC PATH 
READ (NO THF.THL 
IF (N1 .NE.M1 ) READ (MO 
RETURN 

40 FORMAT (1H1//45H POSITIVE AND NEGATIVE VALUES OF THE STREAM, 30H 
1 FUNCTION AT SUPERSONIC POINTS///) 

END 


SUBROUTINE INTERP ( J1 ,K1 ,K2,K3, THF) 

LOCATES SUPERSONIC BODY POINTS BY QUADRATIC INTERPOLATION 
THE BODY IS THE STREAMLINE PSI = 0 

K3 IS ZERO WHEN THERE IS NO BODY POINT IN THIS INTERVAL 
COMMON /I/ NP, KBM.MODE, NF, NN,MM,NI,NX, IS,KC, LBM, JJ,KK, NB, NC ,MRP, NJ 
1 ,KF, NBPS, NFC.NRN, NPTS, NT, IPLT, LOFF,KP, NOSE, NCAS 
COMMON /2/ PI, TP.GRID, TOL 
COMMON /G/ N1 , N3 , N4 , N7 ,M1 
COMPLEX XI.XIBODY 

COMMON SEPR(300) ,QL(300) ,XI(300) ,XIB0DY(300) ,UB0DY(300) ,VBODY(300) 
1 ,XB0DY(300) ,YBODY(300) ,H(300) ,THETA(300) ,ANGL(300) ,MACHN(300) ,KAPP 
2A(300) ,XREAL(300) ,YREAL(300) ,S(300) 

COMMON FP(300) , FPP(300) , FPPP(300) ,GP(300) ,GPP(300) ,GPPP(300) 

COMMON ILINE(300) ,JLINK(300),OM(300) 

COMPLEX XSi,ETA 

DIMENSION XS 1(1 00) , ETA(IOO), U(100), V(100), PSI(IOO), PHI(IOO), 
1X(100), Y(1 00) 

COMPLEX XII 3.XI23.CDUM 
MRQ=NN/65+1 
IR=NN/50+1 
K3=0 
XB=0. 

XA=0. 

READ IN POINTS ON REAL SUPERSONIC CHARACTERISTIC 
CHECK FOR A SIGN CHANGE BETWEEN THE SECOND AND THIRD INTERVAL 
DO 10 L=1 ,K1 
MCI +1-L 

READ (N1 ) XSI( I) , ETA( I) ,U( I) , V( I) , PHI( I) ,PSI( I) ,X( I) ,Y( I) 

IF (N1 .EQ.M1 ) GO fO 10 
C RICHARDSON EXTRAPOLATION 

READ (Ml) CDUM , CDUM , U2 , V2 , DUM , PSI2 , X2 , Y2 
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U( I)=(4. #U( I)-U2)/3. 

V(I)=(4.*V(I)-V2)/3. 

PSI( I) =(4. *PSI( I)-PSI2)/3. 

X(I)=(4.*X(I)-X2)/3. 

Y(I)=(4.*Y(I)-Y2)/3. 

10 CONTINUE 
DO 30 1-1 ,K1 
XC=PSI( I) 

IF (I.EQ.1) GO TO 20 
IF (XB*XC. LE.O) GO T0-40 
20 XA=XB 
30 XB=XC 

C NO BODY POINT ON THIS CHARACTERISTIC 
K3=0 

GO TO 60 
40 K3=I 
L=K3 

EA=XC-XB 

EB=XC-XA 

EC=XB-XA 

C DO LINEAR INTERPOLATION BETWEEN POINTS 2 AND 3 
U23=(U(L-1)*XC-U(L)*XB)/EA 
V23=( V( L-1 ) *XC-V( L) *XB) /EA 
X23=(X(L-1 )*XC-X(L) *XB)/EA 
Y23=(Y(L-1 ) *XC-Y(L) *XB)/EA 
XI23 = (XSI(L-1)*XC-XSI(L)*X3)/EA 
IF ( EA#EC. LE. 0. ) GO TO 50 

IF ( ( ABS(XB) . LT. TOL) .OR. ( ABS(XC) . LT. TOL) ) GO TO 50 
C DO LINEAR INTERPOLATION BETWEEN POINTS 1 AND 3 
U1 3=(U(L-2) *XC-U ( L) *XA)/EB 
VI 3 =( V( L-2) *XC-V( L) *XA) /EB 
X13=(X(L-2)*XC-X(L) *XA)/EB 
Y1 3 = (Y(L-2) *XC-Y( L) *XA)/EB 
XII 3=(XSI( L-2) *XC-XSI( L) *XA) /EB 
C DO QUADRATIC INTERPOLATION 
UB0DY(K2) =(U1 3*XB-U23*XA)/EC 
VB0DY(K2)=(V13*XB-V23*XA)/EC 
XB0DY(K2) =(X1 3*XB-X23*XA)/EC 
YBODY(K2)=(Y13*XB-Y23*XA)/EC 
XIB0DY(K2) =(C0NJG(XI1 3) *XB-C0NJG(XI23) *XA) /EC 
GO TO 60 

C IF PSI IS NOT MONOTONIC USE LINEAR INTERPOLATION 
50 UB0DY(K2)=U23 
VB0DYCK2) =V23 
XB0DY(K2)=X23 
YBODY(K2)=Y23 
XIBODY (K2 ) =C0NJG ( XI2 3 ) 

C CONSTRUCT GRAPH OF SIGN OF PSI ON SUPERSONIC CHARACTERISTICS 
60 NCOUNTO 

DO 70 L=1 ,K1 ,MRQ 
J=K1 +1 -L 
NCOUNT=NCOUNT+ 1 
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N=1 HP 

IF (PSI(J).LT.O.) N=1 HN 
70 JL INK ( NCOUNT ) =N 

WRITE (N4.90) ( JLINK(K) ,K=1 , NCOUNT) 

IF (M0D(J1-1 ,IR).NE.O) GO TO 80 
C WRITE DATA ON TAPE 7 FOR USE IN PLTCHR 
KL=(K3-2)/IR+2 
IF (K3.EQ.0) KL=0 
WRITE (N7) KL 
IF (KL.EQ.O) GO TO 80 
K3L=K3-1 

WRITE ( N7 ) (X(J),Y(J),J=1,K3L,IR) 

WRITE (N7) XB0DY(K2) ,YB0DY(K2) 

80 CONTINUE 
RETURN 

90 FORMAT (2X,65( 1X.A1 ) ) 

END 


SUBROUTINE NASHMC (K1.K2.RN) 

C COMPUTES THE BOUNDARY LAYER CORRECTION 
REAL MACHN, KAPPA 
COMPLEX XI, XIBODY 

COMMON SEPRC300) ,QL(300) ,XI(300) ,XIBODY(300) ,UB0DY(300) ,VBODY(300) 

I , XBODY(300) ,YB0DY(300) ,H(300) ,THETA(300) ,ANGL(300) ,MACHN(300) ,KAPP 
2A(300) ,XREAL(300) ,YREAL(300) ,S(300) 

REAL MACH 

COMMON /A/ GAMMA, MACH, RHOINF, EMU.QSTRSQ 
REAL MACHA.MACHB 

COMMON H / MACHA.MACHB, ANGLA, ANGLB 
REAL MH.MHSQ.NU.MAVE 

DATA TR/. 3^24 / , RTH) /320 . / , TE1 /5 . E-3 / , TE2 /5 . E-5 / , PIMIN/-1 . 5 / , PIMAX/ 

I I . E4/ 

GAMM= ( GAMMA-1 .)/2. 

GAM1 =1 ./(GAMMA-1 .) 

MAVE=.5*( ABS(MACHA) +ABS(MACHB) ) 

CSIINF-1 . +GAMM*MAVE*MAV E 
INC=ISIGN( 1 ,K2-K1 ) 

GE=6.5 

L-K1 

DSOLD=ABS( S( L) -S( L-INC ) ) 

10 LP=L+INC 

MH= . 5 *( MACHN ( L) +MACHN( LP ) ) 

MHSQ=MH*MH 
CSIH-1 . +GAMM*MHSQ 
DS=ABS( S( LP)-S( L) ) 
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IF (LP.NE.K2) DQDS=(MACHN( LP)-MACHN( L) )/(DS*MH*CSIH) 

T=CSIINF/CSIH 

RHOH=T**GAM1 

NU=T*( 1 . +TR)/(RHOH*(T+TR) ) 

RTH=RN*MH/(MAVE*NU) 

IF (L.NE.K1) GO TO 20 
THETAH=RTHD/RTH 
THT-THETAH 
THETA( L) =THETAH 

20 PC-1 ,0+.066*MHSQ-.008*MH*MHSQ 
FR-1 .-.134*MHSQ+.027*MHSQ*MH 
C DO AT MOST 200 ITERATIONS 
DO 40 J-1 ,200 

RTAU-1 . /(FC*(2. 471 1 *ALOG(FR*RTH*THETAH) +4.75) +1 .5*GE+1 724. /(GE*GE+ 
1 200. )-1 6.87) 

TAU=RTAU*RTAU 
HB=1 ./(I .-GE*RTAU) 

HH=( HB+1 . ) *( 1 . +. 1 78*MHSQ)-1 . 

SEP=-THETAH*DQDS 

PIE=>HH*SEP/TAU 

PIE=AMAX1 (PIMIN, AMIN1 (PIMAX.PIE)) 

G=6. 1 *SQRT( PIE+1 . 81 )-1 .7 

T2=ABS(G-GE)/GE 

GE=G 

DT2=DT 

DT=( HH+2 . -MHSQ) *SEP+TAU 
IF (J.EQ.1) GO TO 30 
T 1= ABS( ( DT-DT2 ) / DT ) 

IF ( ( TI. LT. TE2 ) . AND. ( 12 . LT. TE1 ) ) GO TO 50 
30 THETAH=THT+.5*DT*DS 
40 CONTINUE 

50 THETA(LP)=DT*DS+THT 
THETAH=THETA( LP) 

THT=THETA(LP) 

H( L) =*( H( L) *DS+HH*DSOLD)/(DS+DSOLD) 

H(LP)=HH 

SEP=-THETAH*DQDS 

SEPR( L) =( SEPR( L) *DS+SEP*DSOLD)/(DS+DSOLD) 

SEPR( LP)=SEP 

DSOLD=DS 

L=LP 

IF (L.NE.K2) GO TO 10 
H(K2)=2.*H(K2)-H(K2-INC) 

H(K1 ) =0 . 

SEPR(K2) =SEPR( K2) +( SEPR(K2)-SEPR(K2-INC) ) 

RETURN 

END 



- 161 -. 


SUBROUTINE LAMBDA (UL, VL, LAMDAP, LAMDAM, TAU.XI.ETA, IND) 

C COMPUTES COEFFICIENTS OF DIFFERENCE EQUATIONS GIVEN UL AND 
C VL ON SUBSONIC AND TRANSONIC GRIDS 
EXTERNAL CSQRT 

COMPLEX UL , VL, LAMDAP , LAMDAM , TAU , U , V, QS , CS , CLOG , CEXP , XI , ETA 
COMPLEX CSQRT, ROCTL 

COMMON /I/ NP,KBM,MODE, NF, NN,MM, NI, NX, IS,KC , LBM, JJ,KK,NB, NC,MRP, NJ 

1 , KF, MBPS, NFC , NRN, NPTS, NT, IPLT, LOFF,KP,NQSE,NCAS 
COMPLEX ROOT, ROOT1 

COMMON /5/ ROOT, ROOTI ' * 

REAL MACH 

COMMON /A/ GAMMA , MACH , RHOINF , EMU , QS.TRSQ 
COMMON /G/ NI ,N3,N4,N7,M1 
DATA EMOLD/O . / , ROOT/ (0 . , 1 . ) / 

IF (MACH.EQ.EMOLD) GO TO 10 

EMOLD=MACH 

GAMM= ( GAMMA-1 .)/2. 

C0SQ=1 . /(MACH*MACH) +GAMM 
GAMI=-1 ./(GAMMA-1 .) 

RHOINF=(MACH*MACH) **GAMI 
GAMI=GAMMA*GAMI 
10 U=UL 
V=VL 

QS=U*U+V*V 

CS=CQSQ-GAMM*QS 

ROOTL=ROOT 

R0OT=CSQRT(QS/CS-1 . , ROOT) 

C CHECK MAGNITUDE AND BRANCH OF ROOT 

IF ( (IS. NE. 1 ) .OR. (IND. LT.O) ) GO TO 20 
IF (CABS( ROOT) . LE. .2) WRITE (N7) MODE, XI, ETA, ROOTL, ROOT 
20 IF ( RE AL( ROOT ) . GE. - AIMAG( ROOT ) ) GO TO 30 
WRITE (N4.H0) XI, ETA 
ROOT=-ROOT 

30 LAMDAP=(U*V+CS#ROOT)/(CS-V*V) 

LAMDAM= ( U*V-CS*ROOT) / ( CS-V* V) 

IF (IND. LT.O) RETURN 
TAU=CS*RHOINF*CEXP(GAMI*CLOG(CS) ) *ROOT 
RETURN 

40 FORMAT (//5X.32HCORRECTION OF THE BRANCH AT XI -E7. 3, 1H, ,E7. 3.8H 
1 ETA =F7.3,1H,,F7.3) 

END 
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SUBROUTINE LAMBD (WL,WSL,LAM,TAU,XI,ETA,IND) 

COMPUTES COEFFICIENTS OF DIFFERENCE EQUATIONS FROM WL AND WSL 
FOR SUPERSONIC GRIDS 

COMMON /I/ NP,KBM,MODE, NF, NN,MM,NI, NX, IS,KC ,LBM, JJ,KK, NB, NC.MRP, NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF, KP, NOSE, NCAS 
COMPLEX ROOT , ROOT1 
COMMON /5/ ROOT.ROOTI 
REAL MACH 

COMMON /A/ GAMMA, MACH, RHOINF, EMU, QSTRSQ 
COMMON /G/ N1 , N3 , N4 , N7 ,M1 

COMP LEX WL , WS L , LAM , TAU , W , WS , C S , QS , CSQRT , C LOG , C EXP , I , XI , ETA , ROOT L 
EXTERNAL CSQRT 
DATA EMOLD/O . /, 1/(0. , 1 . )/ 

IF (MACH. EQ.EMOLD) GO TO 10 
EMOLD=MACH 
GAM- ( GAMMA-1 .)/2. 

C0SQ=1 . /(MACH*MACH) +GAM 
GAMI—1 ./(GAMMA-1 .) 

RHOINF = ( MACH*MACH ) **GAMI 
GAMI=GAMMA*GAMI 
10 W=WL 
WS=WSL 
QS=W*WS 
CS=COSQ-GAM*QS 
ROOTL=ROOT 

ROOT= CSQRT ( QS /CS- 1 . , ROOT) 

C CHECK MAGNITUDE AND BRANCH OF ROOT 

IF ((IS.NE.1) .OR. (IND.LT.O)) GO TO 20 
IF (CABS(RGOT) . LE. .2) WRITE (N7) MODE, XI, ETA, ROOTL, ROOT 
20 IF (REAL(ROOT) .GE. -AJMAG(ROOT) ) GO TO 30 
WRITE (N4.H0) XI, ETA 
ROOT=-ROOT 

30 LAM=2 . *CS-QS-2 . *I*CS*ROOT 
IF (IND.LT.O) RETURN 
TAU= RHOINF* CEXP ( GAMI * CLOG ( C S ) ) *CS*ROOT 
RETURN 

40 FORMAT ( //5X , 32HCORRECTION OF THE BRANCH AT XI -FT. 3, 1 H, , F7.3.8H 
1 ETA -F7.3.1H, ,F7.3) 

END 


COMPLEX FUNCTION DTAUDX(UL, VL) 

C FINDS THE DERIVATIVE OF TAU AS A FUNCTION OF XI 
COMPLEX XIA.XIB.XIC.DZ 

COMMON /3/ R,R1 ,R2, RATO, PPWN, GAM, WTAIL.XIA, XIB.XIC.UA, UB,VA,VB,UC, 
1 VC , TRANU , TRANL, CONE, CTWO , CTHR, EP, RN, SO, THNOS.DZ 
REAL MACH 

COMMON /A/ GAMMA, MACH, RHOINF, EMU, QSTRSQ 
COMPLEX UL, VL, S , CS , QS , CLOG , CEXP , DSDXI , CONST 
DATA EMOLD/O./ 

IF (MACH. EQ.EMOLD) GO TO 10 
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EMOLD=MACH 
GAMM=(GAMMA-1 . )/2. 

C0SQ=1 ./(MACH*MACH)+GAMM 
DSDXI=1 . 

CALL STOFXI (XIA.S.DSDXI) 

GAMI—1 ./(GAMMA-1 .) 

RHOI NF = ( MACH*MACH ) **GAMI 
GAMI=GAMMA*GAMI 

CONST=CMPLX(0. , - . 25 *( GAMMA+ 1 . ) *RHOINF) 

10 QS=UL*UL+VL*VL 
CS=COSQ-GAMM*QS 

DT AUDX= CONS T*CEXP ( GAMI * CLOG ( C S ) ) *QS*QS*DSDXI/(S*(QS-CS) ) 

RETURN 

END 


SUBROUTINE GETUV (S,T,U,V) 

C FINDS U AND V FROM HODOGRAPH COORDINATES S AND T 
COMMON /2/ PI, TP, GRID, TOL 
COMMON /G/ N1 , N3, N4, N7.M1 

COMPLEX I , S, T, U , V, W , WSTR, HSQ , HSQPR, QS ,. QSNEW, ST, CSQRT 
EXTERNAL CSQRT 
DATA 1/(0., 1.)/ 

QS=U*U+V*V 

W=S 

WSTR=T 

ST=S*T 

IF (CABS(ST) .GE.TOL) GO TO 1 0 
CALL GET HSQ ( (0. ,0.) , HSQ, HSQPR) 

W=W/SQRT(REAL( HSQPR) ) 

WSTR=WSTR/SQRT( REAL( HSQPR) ) 

GO TO 50 

C DO AT MOST 20 NEWTON ITERATIONS 
10 DO 20 L-1 ,20 

CALL GETHSQ (QS, HSQ, HSQPR) 

QSNEW=QS- ( HSQ-ST) /HSQPR 
IF (CABS( QSNEW- QS).LT. TOL) GO TO 30 
20 QS= QSNEW 

WRITE (N4.60) ST 

QSNEW=U*U+V*V 

QS=QSNEW 

30 IF (CABS(ST) . LT. . 1 ) GO TO 40 
QS= QSNEW 

W=CSQRT(QS*(S/T) ,W) 

WSTR=W*(T/S) 

GO TO 50 



-164- 


40 W=S*CSQRT( QS/HSQ , ( 1 - ,0. ) ) 

WSTR=T*CSQRT( QS/HSQ, ( 1 . ,0. ) ) 

50 U=.5*(W+WSTR) 

V=.5*I*(W-WSTR) 

RETURN 

60 FORMAT (42H NEWTON ITERATION DID NOT CONVERGE AT ST =,2E12.4) 
END 


SUBROUTINE GETHSQ (QS, HSQ, HSQPR) 

C COMPUTES HODOGRAPH QUANTITY H(QS)**2 AND ITS DERIVATIVE 
C FROM THE SPEED QS 
COMPLEX ROOT, ROOT! 

COMMON /5/ ROOT , R00T1 
REAL MACH 

COMMON /A/ GAMMA, MACH, RHOINF, EMU.QSTRSQ 

COMPLEX QS.BPHI1 ,BPHI2,R00T1 , TEMP, HSQ, HSQPR, R00T2 ,CSQRT,CS 

COMPLEX QSX 

EXTERNAL CSQRT 

DATA R00T1 /(I .,0.)/ 

DATA EMOLD/O . / 

IF (MACH.EQ.EMOLD) GO TO 10 
C0NST=1 . 

GAMM=( GAMMA-1 .)/2. 

CQSQ=1 . / (MACH*MACH) +GAMM 
QSTRSQ=( 2. /(GAMMA+1 . ) ) *COSQ 
EMU=SQRT(( GAMMA- 1 . )/ (GAMMA+1 . ) ) 

FAC=EMU/QSTRSQ 

QSX=QS 

QS=( 1 . ,0. ) 

10 CS=CQSQ-GAMM*QS 

BPHI1 =(CS+CS)/QSTRSQ-1 . 

BPHI2 = ( CS+CS) - QS 

R00T2=CSQRT( (CS+CS) *( BPHI2-QS) , R0CT1 ) 

ROOT! =FAC*R00T2 

TEMP=CEXP(CLOG( BPHI1 -R00T1 )/EMU) 

TEMP=CONST/ ( TEMP *( BPHI2 +ROOT2) ) 

C TEMP IS H**2/QS 
HSQ=QS*TEMP 

IF (MACH.EQ.EMOLD) GO TO 20 
EMOLD=MACH 

C SET CONST SO THAT H( 1 ) =1 
C0NST=1 . /REAL( HSQ) 

QS=QSX 
GO TO 10 

C COMPUTE THE DERIVATIVE OF HSQ WITH RESPECT TO QS 
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20 HSQPR=TEMP*R00T2/(CS+CS) 
RETURN 
END 


SUBROUTINE STOFXI (X,SOFXI, SOFXIP) 

C CALCULATES HODOGRAPH VARIABLE S FROM POINT XI IN ELLIPSE 
C S = ( (XI+XO)/(RATC*XI+XO) )*EXP(FN(XI) ) 

COMMON /I / NP,KBM,MODE, NF, NN,MM,NI, NX, IS,KC , LBM, JJ,KK,NB, NC,MRP, NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF, KP, NOSE, NCAS 
COMMON /2/ PI, TP,GRID,TOL 
COMPLEX XIA,XIB,XIC ,DZ 

COMMON /3/ R,R1 ,R2,RATC,PJMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB,VA,VB,UC, 
1 VC , TRANU, TRANL, CONE, CTWO ,CTHR, EP, RN, SO, THNOS, DZ 
COMPLEX BP, ETJ 
COMMON /8/ BP(65),ETJ(65) 

COMPLEX SIG 
COMPLEX XO 
EXTERNAL SIG 

COMPLEX F1 1 , F22, S, SI, X, TEMP, SOFXI, SOFXIP, ROT, F, FP 
COMPLEX XOLD 

X0=-CMPLX(R1 *COS( THNOS) , R2 *SIN( THNOS) ) 

XOLD=X 

L-1 

C EVALUATE FN(XI) AND ITS DERIVATIVE FP 
10 S=SIG(X)/R 
SI-1 ./(S*R*R) 

F1 1 =BP( NBPS) *S+BP( NBPS-1 ) 

F22=BP( NBPS) *SI+BP( NBPS-1 ) 

J=NBPS-2 

20 F1 1 =S*F1 1 +BP( J) 

F22=SI*F22+BP( J) 

J=J-1 

IF (J.GE. 1) GO TO 20 
F=.5*( F1 1 +F22) 

GO TO (30,40,50) , L 
30 S=CEXP( F) 

TEMP=1 . /(RATC*X+XO) 

S=(X+XO)*TEMP*S 
SOFXI =S 

IF (REAL( SOFXIP). EQ.O.) RETURN 
C COMPUTE DS/DXI 

TEMP=1 . /(X+XO)-RATC*TEMP 
C FIND D/DXI( F) 

ROT=CMPLX(0. , .01 ) 

X=X+ROT 
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L=2 

GO TO 10 
40 FP=F 

X=X-2.*R0T 

L=3 

GO TO 10 

50 FP=( FP-F)/(2. *ROT) 
S0FXIP=( FP+TEMP) *SOFXI 
X=XOLD 
RETURN 
END 


COMPLEX FUNCTION SFROMX(X) 

C CALLS SUBROUTINE STOFXI 
COMPLEX X , SOFXI , SOFXIP 
S0FXIP=0. 

CALL STOFXI (X, SOFXI, SOFXIP) 

SFROMX=SOFXI 

RETURN 

END 


COMPLEX FUNCTION XIOFS(S,XIPAST) 

C FINDS ELLIPSE COORDINATE XI FROM HODOGRAPH COORDINATES 
COMPLEX XIPAST,XIOLD,XINEW,SFRCMX, SOFXI, SOFXIP, S 
COMMON /I / NP,KBM,MODE, NF, NN,MM,NI, NX, IS,KC, LBM, JJ,KK, NB, NC ,MRP, NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF,KP, NOSE, NCAS 
COMMON /2/ PI, TP,GRID,TOL 
COMMON /G/ N1 ,N3,N4, W,M1 
XIOLD=XIPAST 

C DO AT MOST 20 NEWTON ITERATIONS 
DO 10 K=1 ,20 
SOFXIP =1 . 

CALL STOFXI (XIOLD, SOFXI, SOFXIP) 

XINEW-XIOLD- ( SOFXI-S) /SOFXIP 
IF (CABS(XINEW- XIOLD). LE.TOL) GO TO 20 
XIOLD=XINEW 
10 CONTINUE 

XINEW=SFRCMX (XIOLD )-S 
WRITE (N4.30) S, XIOLD, XINEW 
XINEW=XIPAST 
20 XIOFS=XINEW 
RETURN 

30 FORMAT (/* NO CONVERGENCE AT S=*,2F6.3,5X3HXI=,2F6.3,6X,*S(XI)-S=* 
1.2F6.3/* TROUBLE CALCULATING SONIC LINE. CHANGE MACH *) 

END 
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SUBROUTINE RING (NK.TS1 ,TS2,CC,R) 

CALCULATES CHEBYSHEV COEFFICIENTS OF F IF REAL(F)=TS1 
AROUND THE ELLIPSE AND FINDS IMAG(F)=TS2 
COMPLEX CC,I 

COMMON /2/ PI, TP, GRID, TOL 

DIMENSION TSK1), TS2(1), CC(1), AX(130), BX(130), ARG(130) 
DATA I/(. 0,1 .)/ 

DARG=TP/FLOAT( NK) 

NK2=NK/2 
NFCS=NK2+1 

C FIND CHEBYSHEV COEFFICIENTS GIVEN REAL PART OF FUNCTION 
DO 10 J=1 ,NK 
K-NK2+J 

IF (K.GT.NK) K=K-NK 
10 TS2( J)=TS1 (K) 

CALL FOUCF (NK,TS2,CC, AX,BX) 

DO 20 J=1 , NFCS 
El =1 . 

E2=EXP( FL0AT(2-2*J) #ALOG(R) ) 

Cl = .5*(E1+E2) 

C2 = .5*( El -E2) 

T1=REAL(CC(J))/C1 
I2=AIMAG(CC( J) )/C2 
20 CC( J) =CMPLX( T1 ,T2) 

CC ( 1 ) =CMPLX(REAL(CC ( 1 ) ) ,0 . ) 

C FILTER THE CHEBYSHEV COEFFICIENTS 

FAC=TP/FLOAT( NK) 

DO 30 J=2 , NFCS 

FAC1 =SIN( FLOAT( J-1 ) *FAC ) / ( FLOAT( J-1 ) *FAC ) 

30 CC(J)=FAC1*CC(J) 

C FIND CONJUGATE FUNCTION 

DO 50 J=1 , NK 
L=NK2+J 

IF (L.GT.NK) L=L-NK 
ARG( J) =FLQAT( J- 1 ) *DARG 
AX( J) =0, 

DO 40 K=1 , NFCS 
El =1 . 

E2=EXP(FL0AT( 2-2*K) *ALQG(R) ) 

Cl =.5*( El + E2) 

C2=.5*(E1 -E2) 

T1 =REAL(CC(K) )*C2 
T2=AIMAG(CC(K) ) *C1 

TRM=T1 #SIN( (K-1 ) *ARG( J) ) +T2*C0S( (K-1 ) *ARG( J' 

AX(J)=AX( J)+TRM 
40 TS2( L) =AX( J) 

50 CONTINUE 
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RETURN 

END 


COMPLEX FUNCTION SIG(X) 

C CALCULATES POINT SIG IN RING CORRESPONDING TO POINT X IN ELLIPSE 
COMPLEX X, I 
DATA 1/(0. ,1.)/ 

RR=REAL(X) 

C=AIMAG(X) 

T0L-1.E.-5 

IF ((ABS(C).GE.TOL) .OR. (ABS(RR).GT.I .)) GO TO 10 
RAD=1 . 

THT=ACOS(RR) 

GO TO 20 
10 CONTINUE 

T=RR*RR+C*C+1 . 

ASQ=. 5*( T+SQRT( T*T-4 . *RR*RR) ) 

ASQ=AMAX1(ASQ,1 .) 

B=SQRT( ASQ-1 . ) 

A=SQRT( ASQ) 

RAD=A+B 

FAC=AMAX1 ( ABS( RR/A) , 1 . ) 

VAR=RR/( A*FAC) 

THT=ACOS( VAR) 

20 CONTINUE 

IF (C.LT.O) THT=-THT 
SIG=CEXP( I*THT) *RAD 
RETURN 
' END 


FUNCTION RHO (QS) 

C COMPUTES DENSITY AS A FUNCTION OF THE SQUARE OF THE SPEED 
REAL MACH 

COMMON /A/ GAMMA, MACH, RHOINF, EMU, QSTRSQ 
DATA EMOLD/O . / 

IF (MACH. EQ.EMOLD) GO TO 1 0 

EMOLD=MACH 

GAMM= ( GAMMA-1 . )/2. 

C0SQ=1 . / (MACH*MACH) +GAMM 
GAMI— 1 . /(GAMMA-1 . ) 

RHOINF=(MACH*MACH) **GAMI 
1 u CS=COSQ-GAMM*QS 

RHO=CS**( -GAMI ) /RHOINF 

RETURN 

END 
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COMPLEX FUNCTION CSQRT(Z, BRANCH) 

COMPUTES THE COMPLEX SQUARE ROOT OF Z WHOSE BRANCH CUT IS 
A STRAIGHT LINE FROM THE ORIGIN PASSING THROUGH -BRANCH 
DIMENSION Z(2), BRANCH(2) 

REAL IMAGZ 
REALZ=Z( 1 ) 

IMAGZ=Z(2) 

R= RE ALZ * RE ALZ + U^IAGZ * IMAGZ 
Q=0. 

IF (R.EQ.O.) GO TO 40 

Q=SQRT( . 5 *( SQRT( R) + ABS( REALZ) ) ) 

IF (REALZ. GE.O.) GO TO 10 
R=Q 

Q=.5*IMAGZ/R 
GO TO 20 
10 R-.5*IMAGZ/'Q 

20 IF (Q*BRANCH( 1 ) +R*BRANCH(2) ) 30,40,40 
30 CSQRT=CMPLX(-Q,-R) 

RETURN 

40 CSQRT=CMPLX(Q,R) 

RETURN 

END 


SUBROUTINE LEQ (A, B, NEQS, NSOLNS, IA, IB,DET) 

C SOLVES A SYSTEM OF LINEAR EQUATIONS BY GAUSS ELIMINATION 
DIMENSION A( IA, IA) , B( IB, IB) 

NSIZ=NEQS 
NBSIZ=NSOLNS 
DET=1 .0 

DO 40 1=1 , NSIZ 
BIG-A( 1, 1 ) 

IF (NSIZ.LE.1) GO TO 130 
DO 10 J=2, NSIZ 

IF (ABS(BIG).GE.ABS(A(I, J) ) ) GO TO 1 0 
BIG=A( I, J) 

10 CONTINUE 
BG=1 .0/BIG 
DO 20 J=1 ,NSIZ 
20 A( I, J) =A( I, J) *BG 
DO 30 J=1 , NBSIZ 
30 B( I, J) =B( I, J) *BG 
DET=DET*BIG 
40 CONTINUE 
NUMSYS=NSIZ-1 
DO 120 1=1 .NUMSYS 
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NN=I+1 
BIG=A( I, I) 

NBGRW=I 

DO 50 J=NN, NSIZ 

IF (ABS(BIG).GE.ABS(A(J, I))) GO TO 50 
BIG=A( J, I) 

NBGRW = J 
50 CONTINUE 
BG=1 .0/BIG 

IF (NBGRW.EQ.I) GO TO 80 
DO 60 J-I.NSIZ 
TEMP=A( NBGRW, J) 

A( NBGRW, J)=A(I, J) 

60 A( I, J) =TEMP 
DET=-DET 
DO 70 J-1 , NBSIZ 
TEMP=B( NBGRW, J) 

B( NBGRW, J) =B( I, J) 

70 B( I, J)=TEMP 
80 DO 110 K=NN, NSIZ 
PMULT=-A(K,I)*BG 
IF (PMULT.EQ.O.) GO TO 110 
DO 90 J=NN, NSIZ 
90 A(K, J) =PMULT*A( 1, J) +A(K, J) 

DO 1 00 L=1 , NBSIZ 
100 B(K, L)=PMULT*B( I, L) +B(K, L) 

110 CONTINUE 
120 CONTINUE 
130 DO 170 NC0LB=1 , NBSIZ 
DO 1 60 1=1 , NSIZ 
NROW= NSIZ +1-1 
TEMP =0.0 
NXS=NSIZ-NROW 
IF (NXS.EQ.O) GO TO 150 
DO 140 K=1 ,NXS 
KK=NSIZ+1-K 

140 TEMP=TEMP+B(KK,NCOLB) *A( NRCW.KK) 

1 50 B( NROW , NC OLB ) = ( B( NROW , NC OLB ) - TEMP ) / A( NROW , NROW ) 
160 CONTINUE 
170 CONTINUE 

DO 180 1=1 , NSIZ 
180 DET=DET*A( I, I) 

RETURN 

END 
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SUBROUTINE SPLIF (h'N, S, F, FP, FPP, FPPP,KM,VM,KN, VN) 

GIVEN S AND F AT N CORRESPONDING POINTS COMPUTES A CUBIC SPLINE 
THROUGH THESE POINTS SATISFYING AN END CONDITION IMPOSED ON 
EITHER END. FP,FPP,FPPP WILL BE THE FIRST, SECOND AND THIRD 
DERIVATIVE RESPECTIVELY AT EACH POINT ON THE SPLINE 
DIMENSION NN( 2) , F(2) , FP(2) , FPP(2), FPPP(2), S(2) 

INDX( JJ) =JJ 
N= IABS( NN( 1 ) ) ■ 

NGRM=1 

IF (NN(I).LT.O) N0RM=0 
I=INDX( 1 ) 

J=INDX(2) 

JJ=2 

DS=S(J)-S(I) 

D=DS 

IF (DS.EQ.O.) GO TO 120 
DF=( F( J) -F( I) )/DS 
IF (IABS(KM)-2) 10,20,30 
10 U=.5 

V=3. *(DF-VM)/DS 
GO TO 50 
20 U=0. 

V=VM 

GO TO 50 
30 U— 1. 

V=-DS*VM 
GO TO 50 
40 I=J 
JJ=JJ+1 
J=INDX( JJ) 

DS=S( J)-S(I) 

IF (D*DS.LE.O. ) GO TO 120 
DF=( F( J)-F( I) )/D3 
B=1 . /(DS+D3+U) 

U=B*DS 

V=3*(6. *DF-V) 

50 FP( I) =U 
FPP( I) =V 
U=(2.-U)*DS 
V=6. *DF+DS*V 
IF (JJ. LT.N) GO TO 40 
IF ( KN-2 ) 60,70,80 
60 V=(o. *VN-V)/U 
GO TO 90 
70 V=VN 
GO TO 90 

<30 V=(DS*VN+FPP( I) ) /( 1 . +FP( I) ) 

90 3=V 
D=DS 

100 DS=S( J)-S( I) 

U=FPP( I)-FP( I; *V 
FPPP( I) =( V-U)/DS 
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FPP( I)=U 

FP( I) =( F( J) -F( I) ) /DS-DS*( V+U+U)/6. 

v=u 

J=I 

I=INDX( JJ-1 ) 

IF ( JJ.GT.1) GO TO 100 
N=1NDX( N) 

FPPP( N) =FPPP( N-1 ) 

FPP( N) -B 

FP( N) =DF+D*( FPP( N-1 ) +B+B) /6 . 

IF (KM.GT.O) RETURN 
N=IABS( NN( 1 ) ) 

FPPP( J) =0 . 

V=FPP( J) 

110 I=J 
JJ=JJ+1 
J=INDX( JJ) 

DS=S( J)-S(I) 

U=FPP( J) 

FPPP( J) =FPPP( I) +. 5*DS*( F( I) +F( J)-DS*DS*(U+V) /I 2. ) 

V=U 

IF (JJ.LT.N) GO TO 110 
RETURN 

120 PRINT 130 
PRINT 140 
STOP 

130 FORMAT (47H0**** NON-MONOTONIC ABCISSA FOR SPLINE FIT ****) 
140 FORMAT (44®*** PROGRAM STOPPED IN SUBROUTINE SPLIF ***) 

END 


SUBROUTINE PSPLIF (M,S, F, FP, FPP, FPPP, FINT) 

C PERIODIC SPLINE FITTING ROUTINE 

DIMENSION S(1) , F( 1 ) , FP(1), FPP(1), FPPP(1), FINT(1) 
CON=0 . 

IF (M.LT.O) CON=FINT( 1 ) 

N=IABS(M) 

K-1 

1=1 

J=2 

DS=S(2)-S( 1 ) 

D=DS 

IF (DS.EQ.O.) GO TO 50 
DF=6. # ( F(2)-F( 1 ) )/DS 
U1 =.5 
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VI =DF/ (DS+DS) 

U2 = .5 

V2=(DF-6.)/ (DS+DS) 

GO TO 20 
10 I-J 
J= J+K 

DS-S(J)-S(I) 

IF (D*DS. LE.O. ) GO TO 50 
DF=6.*(F( J)-F( I) )/DS 
B=1 . /(DS+DS+U1 ) 

U1 =B*DS 
VI =B*(DF-V1 ) 

B=1 ./(DS+DS+U2) 

U2 =B*DS 
V2=B*(DF-V2) 

20 FP( I) =U1 
FPP( I) = V1 
FPPP( I) =U2 
FINT(I) = V2 
U1 =(2.-U1 ) *DS 
VI =DF+DS*V1 
U2=(2.-U2) *DS 
V2=DF+DS*V2 
IF (J.NE.N) GO TO 10 
VI =-V1 /U1 
V2=(6.-V2)/U2 
B1 =V1 
B2=V2 

30 DS=S( J)~S( I) 

DF=(F( J)-F( I) )/DS 
U1 =FPP( I)-FP( I)* VI 
FPP( I) =U1 

FP( I) =DF-DS*( VI +U1 +U1 ) /6 . 

VI =U1 

U2 = F Il'JT ( I)-FPPP( I) *V2 
FINT( I) =U2 

FPPP( I) =DF-DS *( V2 +U2 +U2 ) /6 . 

V2=U2 

J=I 

I=I-K 

IF ( J.NE.1) GO TO 30 

X=-(FPP(1 )-B1 )/( (FINT( 1 )-B2)-(FPP( 1 ) — B1 ) ) 
FP(1)=X 

U=FPP(1)+X ? 'vFINT(1)-FPP(1) ) 

FPP( 1 ) =U 
FPP( N) =FPP( 1 ) 

FINT( N) =FPP( N) 

FP( N) =FP( 1 ) 

FPPP( N) = FP( N) 

FINT( 1 ) =CON 
HO I=J 
J=J+K 
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DS=S( J)-S( I) 

FP( J) =FP( J) +X*( FPPP( J)-FP( J) ) 

V=FPP( J) +X*(FINT( J) -FPP( J) ) 

FPP( J) =V 

FPPP( I) =(V-U)/DS' 

FINK J) =FINT( I) +'. 5 *DS*( F( I) +F( J) -DS*DS*(U+V) /I 2 . ) 

U=V 

IF (J.NE.N) GO TO 40 
FPPP( N) =FPPP( 1 ) 

RETURN 
50 PRINT 60 
PRINT 70 
STOP 

60 FORMAT (47H0**** NON-MONOTONIC ABCISSA FOR SPLINE FIT ****) 
70 FORMAT (45HD*** PROGRAM STOPPED IN SUBROUTINE PSPLIF ***) 
END 


SUBROUTINE INTPL ( NX, SI, FI, S, F, FP, FPP, FPPP) 

GIVEN S,F(S) AND THE FIRST THREE DERIVATIVES AT A SET OF POINTS 
FIND FI(SI) AT THE NX VALUES OF SI BY EVALUATING THE TAYLOR SERIES 
OBTAINED BY USING THE FIRST THREE DERIVATIVES 
DIMENSION SI( 1 ) , FI(1), S(1), F(1), FP(1), FPP(1), FPPP(1) 

DATA pt/. 33333333333333/ 

J=0 

DO 30 1=1 , NX 
VAL=0 . 

SS=SI( I) 

10 J=J+1 

TT=S( J)-SS 
IF (TT) 10,30,20 
20 J=MAXO( 1 , J-1 ) 

SS=SS-S( J) 

VAL=SS*( FP( J) +. 5*SS*( FPP( J) +SS*PT*FPPP( J) ) ) 

30 FI( I) -F( J) +VAL 
RETURN 
END 
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SUBROUTINE INTPLI (MX, XI, FI, N,X, F, FP, FPP, FPPP) 

C INVERSE INTERPOLATION ROUTINE 

C XI( L) WILL SATISFY F(XI(L)) = FI( L) FOR L = 1 TO ABS(MX) 

C F,FP, FPP, FPPP ARE THE FUNCTION AND DERIVATIVES AT THE X POINTS 

DIMENSION X( 1 ; , F( 1 ) , FP(1), FPP(l), FPPP( 1 ) , XI( 1 ) , FI(1) 

REAL NEW, LEFT 
DATA TOL/1 .E-9/ 

NX=IABS(MX) 

K=2 
LI *1 

NEW=X(1 ) 

FN=F( 1 ) 

FVAL=FI( 1 ) 

IF ( ABS( F( 1 )-FI( 1 ) ) .GT. TOL) GO TO 1 0 
LI =2 

XI( 1 ) =X(1 ) 

IF (NX.EQ.l ) RETURN 
1 0 DO 1 30 L=L1 , NX 

IF ( (FVAL. NE. FI(L) ) .OR. (L. EQ.1 ) ) GO TO 20 
NEW=X(K) 

FN=F(K) 

IF ( FP(K) *FP(K-1 ) .GT. 0. ) GO TO 20 
ROOT=SQRT( FPP ( K- 1 ) **2-2. *FP(K-1 )*FPPP(K-1 ) ) 

DX=-2. *FP(K-1 ) /(FPP(K-1 ) +SIGN(ROOT, FPP(K-1 ) ) ) 

NEW=X ( K- 1 ) +DX 

FN=F(K-1 ) +DX*( FP(K-1 ) +DX*( .5*FPP(K-1 ) +DX*FPPP(K-1 )/6. ) ) 

20 FVAL=FI( L) 

SGN=F(K-1 )-FVAL 
IF (NEW.GT.X(K-I)) SGN=»FN-FVAL 
DO 40 J=K, N 

IF (FP( J) *FP( J-1 ) .LE.O. ) GO TO 30 
IF (SGN*(F(J)- FVAL) .LE.O.) GO TO 60 
GO TO 40 

30 ROOT=SQRT( FPP( J-1 ) **2-2 . *FP( J-1 ) *FPPP( J-1 ) ) 

DX=- 2. *FP( J-1 )/( FPP( J- 1 ) *SIGN( ROOT, FPP( J-1))) 

RIGHT=X( J-1 ) +DX 
LEFT=AMAX1 (X( J-1 ) , NEW+TOL) 

IF ( LEFT. GT. RIGHT) GO TO 40 
F2 = .5*FPP( J-1 ) 

F3=FPPP( J-1 )/6. 

FN=» F( J-1 ) +DX* ( FP ( J- 1 ) +DX* ( F2 +DX* F3 ) ) 

IF (SGN*(FN- FVAL). LE.O) GO TO 90 
40 CONTINUE 

IF (MX.GT.O) GO TO 50 

MX=L-1 

RETURN 

50 PRINT 140, L, FI( L) 

J=K 

GO TO 130 

60 0LD=AMAX1 (X( J-1 ) .NEW+TOL) 

F2 = .5*FPP( J-1 ) 

F3=FPPP( J-1 )/6. 
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START- OLD 
DO 70 K=1 ,10 
DX=0LD-X(J-1) 

FPOLD=FP( J-1 ) +DX*( FPP( J-1 ) +.5*DX*FPPP( J-1 ) ) 

IF (ABS(FPOLD).LE.TOL) GO TO 80 

FN= F( J- 1 ) +DX* ( FP ( J- 1 ) +DX* ( F2 +DX* F3 ) ) 

NEW=OLD- ( FN- FVAL) /FPOLD 

IF ( NEW. LT. START) GO TO ,80 

NEW=AMIN1 ( NEW ,X( J) ) 

IF ( ABS( NEW- OLD) . LT. TOL) GO TO 1 20 
70 OLD=NEW 
CALL ABORT 
80 RIGHT=X( J) 

LEFT=OLD 

IF (SGN*(FN-FVAL) .GT.O. ) GO TO 90 

RIGHT=LEFT 

LEFT=XI( L-1 ) 

IF (L.EQ.1) LEFT=X( 1 ) 

90 DO 110 K=1 ,50 

IF ((RIGHT-LEFT) .LE. TOL) GO TO 1 20 
NEW=.5*(LEFT+RIGHT) 

DX=NEW-X( J-1 ) 

FN=F( J-1 ) +DX*( FP( J-1 ) +DX*( F2+DX*F3) ) 

IF ( ( FN-FVAL) *SGN. LE. 0 . ) GO TO 100 
LEFT=NEW 
GO TO 110 
100 RIGHT=NEW 
110 CONTINUE 
120 XI ( L) =NEW 
130 K=J 
MX=NX 
RETURN 

1H0 FORMAT (* TROUBLE AT *, 15, 3X,E1 6.6) 

END 


SUBROUTINE SPTEN ( N, S, F, E,G, A, B,C ,D,KM, VM,KN, VN) 

C EXPONENTIAL SPLINE FITTING ROUTINE 

DIMENSION S(1) , F( 1 ) , E(1), G(1), A( 1 ) , B(1), C(1), D(1) 

NM=N-1 

H=S(2)-S( 1 ) 

HI=1 . /H 

SI=1 . /SINH( H/E( 1 ) ) 

T I=S I*COSH( H/E( 1 ) ) 

IF (KM-2) 10,20,30 
10 B( 1 )=E( 1 ) # ( E( 1 )*HI-TI) 



-177- 


C(1)=E(1)*(SI-E(1)*HI) 

D(1 ) =VM+HI*( F( 1 )-F(2) ) +E( 1 ) *G(1 ) *(SI-TI) +. 5*H*G( 1 ) 

GO TO 40 
20 B(1)«1. 

C ( 1 ) =0 . 

D( 1 ) =VM 
GO TO 40 
30 B( 1 ) =-TI 
C(1)=SI 

D ( 1 ) =G(1 ) *( SI-TI) +VM*E( 1 ) 

40 XX=1 ./B(1) 

D(1)=XX*D(1) 

DO 50 1=2, NM 

HM=H 

HIM=HI 

SIM=SI 

TIM=TI 

H=S( 1+1 )-S( I) 

HI-1 ./H 

SI=1 ./SINH( H/E( I) ) 

TI=SI*COSH(H/E( I )) 

A( I) =E( 1-1 ) *( SIM-HIM*E( 1-1 ) ) 

B( I) =E( I) *(HI*E( I)-TI)+E( 1-1 )*(HIM*E( 1-1 )-TIM) 
C(I)=E(I)*(SI-HI*E(I)) 

D( I) =HIM*( F( I) — F( 1-1 ) ) +E( 1-1 ) *G( 1-1 ) *( SIM-TIM) +. 5*HM*G( 1-1 ) +HI*( F( 
1 I)-F( 1+1 ) ) + E( I) *G( I) *(SI-TI) +.5*H*G( I) 

C(I-1)=XX*C(I-1) 

XX=1 . /(B( I)-A( I) *C ( I— 1 ) ) 

50 D(I)=(D(I)-A(I)*D(I-1))*XX 
IF (KN-2) 60,70,80 
60 A(N)=E(NM)*(HI*E(NM)-SI) 

B( N)=E(NM) *(TI-HI*E(NM) ) 

D(N) =VN+HI*( F( NM)-F( N) )- .5 *H*G( NM) +E( NM) *G( NM) *( TI-SI) 

GO TO 90 
70 A(N) =0. 

B( N) =1 . 

D(N) =VN 
GO TO 90 

80 A( N) =-SI/E(NM) 

B(N) =TI/E(NM) 

D(N) =VN+G(NM)*( TI-SI) /E(NM) 

90 C(NM)=XX*C(NM) 

XX=1 ./(B( N)-A(N) *C(WQ) 

D(N) =(D(N)-A( N; *D(NM))*XX 
DO 100 J=2,N 
I=N+1 -J 

100 D( I) =D( I) — C( I) *D( 1+1 ) 

DI=D( 1 ) 

DO 110 1=1 ,NM 
DIP=D( 1+1 ) 

H=S(I+1)-S(I) 

SI=1 . /SINH(H/E( I) ) 
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A( I) =F( 1+1 )-F( I) +(DI-DIP) *E( I) **2- .5*G( I) *H**2 
B( I) =F( I) +(G( I)-DI) *E( I) **2 
C(I) =3I*(DIP-G( I) ) *E( I) **2 
D( I) =SI*(DI-G( I) ) *E( I) **2 
110 DI=DIP 
RETURN 
END 


SUBROUTINE INTEN ( NX, SI, FI, N, S, A, B,C ,D, E,0) 

C INTERPOLATION ROUTINE FOR EXPONENTIAL SPLINE 

DIMENSION SI(1), FI(1), S( 1 ) , AO), BO), CO), D(1), E(1), GO) 
1=0 
J=1 

JP=J+1 
10 1 = 1+1 

20 IF (SI(I).LT.S(JP)) GO TO 30 
IF (JP.EQ.N) GO TO 30 
J=J+1 
JP=J+1 
GO TO 20 

30 HI=1 ./(S(JP)-S(J)) 

EI=1 . /E( J) 

FI( I) =B( J) +HI*A( J) *( SI( I) -S( J) ) +C( J) *SINH( EI*( SI( I) -S( J) ) ) +D( J) *SI 
1 NH( EI*( S( JP) -SI( I) ) ) +. 5*G( J) *( SI( I)-S( J) ) **2 
IF (I.LT.NX) GO TO 10 
RETURN 
END 


SUBROUTINE FOUCF (N,G,X,A,B) 

COMPUTE FOURIER COEFFICIENTS BY FAST FOURIER TRANSFORM 
FROM DATA G AROUND THE UNIT CIRCLE 
COMPLEX G,EIV,QP,X,GK 
DIMENSION G(1), X(1), A( 1 ) , B(1) 

DATA PI/3.1 41 5926/ 

L=N/2 

¥=PI/L 

EIV=CMPLX(COS( V) , SIN( V) ) 

MX=-1 
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CALL FFORMS (MX, L,G, A, B,X) 
GK=0. 

1=1 

DO 10 J-1 , L, 2 
X( J)=CMPLX(-B( I) , A( I) ) 
X(J+1)-X(J) *EIV 
10 1 = 1+1 
K=L 

DO 20 J-1 , L 
QP=GK-CONJG(G( J) ) 
GK=GK+CONJG(G( J) )-QP*X( J) 

X( J)=.5*C0NJG(GK) 

GK=G(K) 

20 K-K-1 

X(L+1 ) =CMPLX(-AIMAG(X(1 ) ) ,0. ) 
X( 1 ) =CMPLX( REAL(X( 1 ) ) ,0 . ) 
RETURN 
END 


SUBROUTINE FFORMS (MX,NX,G,CN, SN, Y) 
C COMPLEX FAST FOURIER TRANSFORM 

DIMENSION CN( 1 ) , SN( 1 ) , G(1), Y<1 ) 
COMPLEX G.Y.EIX 
LOGICAL ISW.NR2 
DATA PI/3.1 415926/ 

N=IABS( NX) 

M-IABS(MX) 

IF ((N.LT.2) .OR.(M.LT.D) RETURN 
FAC— ISIGN(1 ,NX) 

NM=N*M 

NH=NM/2 

NCM=NH/2 

NQ=1 

IF (4#(N/4) .EQ.N) NQ=4 

NS-1 

NT=N 

NR=2 

IF (MX.GT.O) GO TO 30 
H=0. 

DH=(PI+PI)/FLOAT( N) 

NDM=( N+1 )/2 
DO 10 J=1 , NDM 
CN( J) =COS(H) 

SN( J) -SI N( H) 

10 H=H+DH 
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K=N 

DO 20 J=1 , NDM 
SN( J+NDM) =-SN( J) 

CN(K)=CN( J+1 ) 

20 K-K-1 
30 ISW=. TRUE. 

LA=NH-ISIGN(NCM,NX) 

40 NSKP =MINO ( 2 , NR- 1 ) 

DO 50 K=NR, NT, NSKP 
IF (MOD(NT,K) . EQ.O) GO TO 60 
50 CONTINUE 
60 ND=NT/K 
NS=I6*K 
NR=K 

NR2=. TRUE. 

IF (NR.NE.2) NR2 = . FALSE. 

NDM=ND*M 

NTM=NT*M 

IF ( NR2) GO TO 120 

NSX=NS 

MQ-1 

L=NDM 

IF ( ISW) GO TO 90 
DO 70 J=1 , NDM 
70 G( J) =Y( J) +Y(NDM+J) 

DO 80 KK-3.NR 
L=L+I'IDM 
DO 80 J=1 ,NDM 
80 G( J) =G( J) +Y(L+J) 

GO TO 160 
90 DO 1 00 J-1 , NDM 
100 Y(J)=G( J)+G(NDM+J) 

DO 110 KK=3 , NR 
L=L+NDM 

DO 110 J-1, NDM 
110 Y( J)=Y( J)+G(L+J) 

GO TO 160 
120 NSX=NS/NR 

IF (ISW) GO TO 140 
DO 130 J=1 , NDM 
G(J) =Y( J) +Y(NDM+J) 

130 G(NH + J)=Y( J)-Y(NDM+J) 

GO TO 160 

1 40 DO 150 J=1 ,NDM 
Y( J) =G( J) +G(NDM + J) 

150 Y( NH+ J) =G( J)-G( NDM+ J) 

IF (NS.EQ.2) GO TO 320 
1 60 ID=ND 
IDM=NDM 
ITM=0 

NSQ=NS/NQ+1 
DO 310 1=2, NSX 
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ITM=ITM+NTM 

.IF (I.EQ.NSQ) GO TO 220 
EIX=CMPLX(CN( ID+1 ) , FAC*SN( ID+1 ) ) 

IF ( NR2) GO TO 260 

IF (ITM.GE.NM) ITM= ITM-NM 

LD-ITM+NDM 

MM=ID 

IF (ISW) GO TO 190 
DO 170 J-1, NDM 

170 G( IDM+J) =Y( ITM+J) +EIX*Y(LD+J) 

DO 180 KK=3 , NR 
MM=MM+ID 

IF (MM.GE.N) MM-MM-N 

EIX=CMPLX ( CN(MM+1 ) , FAC*SN(MM+1 ) ) 

LD=LD+NDM 
DO 180 J-1 f NDM 

180 G( IDM+J) =G( IDM+J) +EIX*Y(LD+J) 

GO TO 300 

1 90 DO 200 J-1 , NDM 

200 Y ( IDM+J) =G( ITM+J) +EIX*G( LD+ J) 

DO 21 0 KK=3» NR 
MM=MM+ID 

IF (MM.GE.N) MM=MM-N 

EIX=CMPLX ( CN(MM+1 ) , FAC*SN(MM+1 ) ) 

LD=LD+NDM 
DO 210 J-1 , NDM 

210 Y( IDM+J) =Y( IDM+J) +EIX*G( LD+J) 

GO TO 300 

220 LP=NH+ISIGN(NQM,NX) 

LD=NH+NDM 
IF (ISW) GO TO 240 
DO 230 J-1 ,NDM 

G(LA+J) =Y(NH+J) +CMPLX( AIMAG(Y(LD+J) ) ,-REAL(Y(LD+J) ) ) 
230 G( LP+ J) =Y(NH+J)-CMPLX( AIMAG(Y(LD+J) ) ,-REAL(Y( LD+J) ) ) 
GO TO 300 

240 DO 250 J=1 , NDM 

Y( LA+ J) =G( NH+J) +CMPLX( AIMAG(G( LD+J) ) ,-REAL(G( LD+ J) ) ) 
250 Y( LP+J)=G(NH+J)-CMPLX(AIMAG(G(LD+J) ) ,-REAL(G(LD+J) ) ) 
GO TO 300 
260 LP-IDM+NH 
LD=ITM+NDM 
IF (ISW) GO TO 280 
DO 270 J=1 , NDM 

G( IDM+J) =Y( ITM+J) +EIX*Y( LD+J) 

270 G( LP+ J) =Y( ITM+J ) -EIX*Y ( LD+J) 

GO TO 300 

280 DO 290 J=1 ,NDM 

Y( IDM+J) =G( ITM+J) +EIX*G( LD+J) 

290 Y(LP+J) =G( ITM+J) -£IX*G( LD+J) 

300 IDM= IDM+NDM 
310 ID-ID+ND 
320 NT=ND 
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ISW=. NOT. ISW 

IF (ND.GT.l ) GO TO MO 

MX=M 

IF (NX.GT.O) GO TO 3MO 
IF (ISW) RETURN 
DO 330 J=1 , NM 
330 G(J)=Y(J) 

RETURN 

3M0 ENI-1 ./FLOAT(N) 

IF ( ISW) GO TO 360 
DO 350 J=1 ,NM 
350 G( J) =ENI*Y( J) 

RETURN 

360 DO 370 J=1 , NM 
370 G(J)=ENI*G(J) 

RETURN 

END 


SUBROUTINE GRAPH (TC,GAP,GC) 

C CONTROL ROUTINE FOR GRAPHICS 
COMPLEX ROTATE, CHAR 
REAL MAC™ 

COMMON SI(300) ,QIN(300) ,SS(600) ,QQ(600) ,XX(600) ,UB0DY(300) , VB0DY(3 
100) ,XBODY(300) ,YB0DY(300) ,XREAL(300) , YREAL(300) , S(300) ,QL(300) ,MAC 
2HN(300) ,FP(300) , FPP(300) ,FPPP(300) 

COMMON CHAR (50) 

COMMON /l / NP, KBM.MODE, NF, NN,MM,NI, NX, IS,KC ,LBM, JJ,KK,NB, NC,MRP, NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF.KP, NOSE, NCAS 
COMMON /2/ PI, TP,GRID,TOL 
COMPLEX XIA,XIB,XIC,DZ 

COMMON /V R, R1 , R2, RATC, PHMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB, ¥A, VB,UC, 
1 VC , TRANU , TRANL, CONE , CTWO , CTHR, EP, RN, SO, THNOS, DZ 
COMPLEX BP.ETJ 
COMMON /8/ BP(65),ETJ(65) 

COMMON /G/ N1 ,N3,N4,N7,M1 
DIMENSION TITLE( 10), NAME(2), ID(M) 

C READ IN DATA NEEDED FOR GRAPHICAL OUTPUT 
N1 =M1 
REWIND N1 

READ (N1 ) IDUM,NIN, (SI( J) ,QIN( J) , J=1 ,NIN) 

READ (N1) NPTS, DUM,DUM,DUM, (SS( J) ,QQ( J) ,DUM, J=1 , NPTS) 

READ (N1 ) KP, EMB,EMA, TURN, CL, DX,DY, ROTATE, (UBODY( J), VBODY( J) ,XBODY 
1 ( J) , YBODY ( J) , XREAL( J) , YREAL( J) , S( J) ,QL( J) , MACHNC J) , J=1 , KP ) 

READ (N1 ) 

C WRITE ONTO TAP El FOR USE IN PROGRAM GRAPH 
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WRITE ( N1 ) NB, NC,WTAIL, TC,GAP,GC,DZ, NBPS, ( BP( J) , J=1 , NBPS) 

REWIND N7 
10 READ (N7) K2 
WRITE ( N1 ) K2 

IF ( E0F(N7) . NE.O) GO TO 30 

DO 20 J=1 ,K2 

READ (N7) NPT 

WRITE ( N1 ) NPT 

IF (NPT.EQ.O) GO TO 20 

NM=NPT-1 

READ (N7) (CHAR(K) ,K=1 , NM) 

READ (NT) CHAR(NPT) 

WRITE (N1) (CHAR(K) ,K=1 , NPT) 

20 CONTINUE 
GO TO 1 0 
30 END FILE N1 

IF (IPLT.LT.O) RETURN 
C INITIATE PLOT 
NPG=1 2*( 1 0+1 ) 

NRUN=iABS(NRN) 

ENCODE (30,60, ID) NRUN 
ID(M)=ID(M).AND. .NOT.7777B 
IF (NRN.GT.O) CALL PLOTS (NPG.ID) 

IF (NRN.LT.O) CALL PLOTSBL (NPG.ID) 

ENCODE (60,70, TITLE) EMB, EMA,TURN,GC 
IF (NB.EQ.1) ENCODE (60, 80, TITLE) EMA,CL,DX,DY,TC 
CALL PLOTQS ( TITLE, NIN.CTHR, TC, ROTATE) 

C HOW PLOT HODOGRAPH PLANE 

CALL LOCUS 

IF (NB.NE.1) GO TO MO 
CALL BDYPLT (NIN,DZ,TC) 

GO TO 50 

C PLOT CASCADE 

MO CALL CASCAD (TITLE, TC.GC, GAP, CTHR, ROTATE) 

50 CALL PLOT (0.0,0.0,999) 

RETURN 

60 FORMAT (3HRUN.I5) 

70 FORMAT(3X3HM1 =F5.3,3XMH M2=F5 . 3. 3X7HDEL TH=FM.0, 3XMHG/C=FM.2) 

80 FORMAT( 2 HM= , F5 . 3 , 3X3 HC L= F5 . 2 , 3X3 HDX= F5 . 2 , 3X3HD Y= Fb . 2 , 3XM HT/C= FM . 2 ) 
END 


SUBROUTINE PLOTQS ( TITLE, NIN,CTHR,TC, ROT) 

C PLOTS INPUT SPEED AND PRESSURE OR MACH DISTRIBUTIONS 
COMPLEX CON, ROT 
REAL MACHN 
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CQMMON SI(30G; ,QIN(300) f SS(600) ,QQ(600) ,XX(600) ,UB0DY(300) ,VBODY(3 
100) ,XB0DY(300) ,YB0DY(300) ,XREAL(300) ,YREAL(300) , S(300) ,QL(300) ,MAC 
2HN(300) ,FP(300) ,FPP(3Q0) ,FPPP(300) 

DIMENSION ANGL(300) 

COMMON/G/ N1 , N3 1 N4 , N7,M1 

COMMON /I / NP,KBM,MODE, NF, NN,MM,NI, NX, IS,KC, LBM, JJ,KK,NB, NC,MRP, NJ 
1 ,KF, NBPS, NFC.NRN, NPTS, NT, IPLT,LOFF,KP,NOSE,NCAS 
REAL MACHA, MACHB 

COMMON H / MACHA, MACHB, ANGLA, ANGLB 
REAL MACH 

COMMON /A/ GAMMA, MACH, RHOINF , EMU , QSTRSQ 
DIMENSION TITLE( 10), TIT12(10) 

EMACH(QS) =SQRT(QS/(COSQ-( (GAMMA-1 . )/2. )*QS) ) 

CP(QS) =HEADI*( RHO(QS) *#GAMMA-PINF) 

PI=AC0S(-1 . ) 

RAD=1 60. /PI 

GAMX= ( GAMMA-1 .)/2. . 

COSQ-GAMX+1 . / (MACH*MACH) 

QSB =COSQ* ( MACHB *MACHB ) / ( 1 . +GAMX* ( MACHB*MACHB) ) 

PINF=RHO(QSB) **GAMMA 

HE ADI =2 . / ( GAMMA* ( MACHB *MACHB ) *PINF) 

C PLOT INPUT SPEED DISTRIBUTION Q(S) 

PLT=8. 

SCALE=PLT/2. 

SFI=SCALE/2. 

CALL PLOT (5. 5, 6. 0,-3) 

IPEN-3 

DO 10 L=1 , InJPTS 
SS( L) =SS( L)-1 . 

CALL PLOT ( SCALE*SS( L) , SFI*QQ( L) , IPEN) 

10 IPEN=2 

DO 20 L=1 , NU\f 

20 CALL SYMBOL ( SCALE* (SI( L)-1 . ) ,SFI*QIN( L) , .07, 3,0. ,-1 ) 

NM1=6H INPUT 

ENCODE (30, 100, TITL2) NM1 

CALL SYMBOL (-1 . 5, -5.0, . 1 4, TITL2,0. ,30) 

CALL XYAXES (-SCALE.O. ,-1 . ,1 . , .25, PLT,0. ,6H(F5.2) ) 

CALL SYIffiOL (SCALE-.5,-.5,.1 1 1,1HS,0.,1) 

CALL XYAXES (-SCALE, -SCALE, -2. ,2. , .50, PLT.90. ,6H( F5. 1 ) ) 

CALL SYMBOL ( -SCALE+ . 5 , SCALE- . 5 , .1-4,1 HQ , 0 . , 1 ) 

CALL FRAME 

C PLOT MACH OR CP ALONG AIRFOIL 
IPL=MOD( IPLT/1 0,10) 

IF ( ( IPL. EQ.O) .OR. ( IPL. EQ.5) ) RETURN 
CP0R=2 . 25 
EM0R=0 . 

SMACH=3 • 

SCP=-^1.5/2.i1 

SXR=AMIN1(4./TC,6.) 

CALL PLOT (-2. 5, -.5, -3) 

C PLOT MACH NUMBER AT THE TAIL POINT 

QS=UBODY ( 1 ) *UBODY ( 1 ) +VBODY ( 1 ) *VBODY ( 1 ) 
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IF (IPL.LT.5) EMN=SMACH*MACHN( 1 )+EMOR 

IF (IPL.GT.5) EMN=SCP*CP(QS)+CPOR 

CALL SYMBOL (SXR*XREAL( 1 ) , EMN, .1 4, 3,0. ,-1 ) 

CALL SPLIF (KP,S,XREAL,FP,FPP,FPPP,3,0.,3,0.) 

CALL INTPL ( NPTS,.SS,XX, S,XREAL, FP, FPP, FPPP) 

IPEN=3 

DO 30 L=1 , NPTS 

QS=QQ( L) *QQ( L) 

IF (IPL.LT.5) EMN=SMACH*EMACH(QS) +EMOR 
IF (IPL.GT.5) EMN=SCP*CP( QS) +CPOR 
CALL PLOT ( SXR*XX( L) , EMN, IPEN) 

30 IPEN=2 

C PLOT OUTPUT VALUES OF MACH OR CP 
DO 40 L=1 , KP 
QS=QL( L) *QL( L) 

IF (IPL.LT.5) EMN=EMACH(QS) *SMACH+EMOR 
IF (IPL.GT.5) EMN=SCP*CP( QS) +CPOR 
40 CALL SYMBOL ( SXR*XREAL( L) , EMN, .07, 3,0. ,-1 ) 

W0RD=1 HM 

IF (IPL.GT.5) W0RD=2HCP 

CALL SYMBOL (-.5,4.5, .1 4.W0RD, .0,3) 

CALL PLOT (5.1 ,4.7,3) 

CALL PLOT (5.35,4.7,2) 

W0RD=6HINPUT 

CALL SYMBOL (5.5, 4.6, .1 4, WORD, 0. ,6) 

W0RD=8H+ OUTPUT 

CALL SYMBOL (5. 15, 4. 1 , .14,W0RD,0. ,8) 

IF (IPL.LE.5) GO TO 50 

CALL XYAXES (-1 . ,0. , 1 .2,-1 .2.-.40, 4.5,90. ,6H(E5. 1 ) ) 

CPCRIT=CP( (C0SQ+C0SQ)/(GAMMA+1 . ) ) 

CALL PLOT (-1 .1 ,SCP*CPCRIT+CPCR,3) 

CALL PLOT (- . 90, SCP*CPCRIT+CPOR, 2) 

GO TO 60 

50 CALL XYAXES (-1 . ,0. ,0. ,1 .5, .25,4.5, 90. ,6H( F5.2) ) 

C PLOT BODY 
60 YMAX=0 . 

YMIN=0. 

DO 70 J=1 ,KP 

YMAX=AMAX1 (YMAX,YREAL( J) ) 

70 YMIN-AMIN1 (YMIN.YREAL(J)) 

Y0R=2 . 5 +. 5 *SXR*( YMAX-YMIN) 

IF ( ( IPL. EQ.2) .OR. ( IPL. EQ.4) .OR. ( IPL. EQ.7) .OR. ( IPL. EQ.9) ) YOR°YOR 
11 . 

CALL PLOT (0.,-Y0R,-3) 

REWIND N1 
READ(N1 ) 

READ(NI) 

READ(NI) 

READ(NI) (ANGL(J),J=1 ,KP) 

IPEN=3 

DO 80 L=1 ,KP 

IF (MACHN(L) .LT..005) GO TO 80 
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ANG=RAD*ANGL( L) +90. 

CALL SYMBOL(SXR*XREAL(L) , SXR*YREAL( L) , .07, 1 3, ANG.-1 ) 

80 IPEN=2 

IF ( ( IPL. EQ.l ) .OR. ( IPL. EQ.2) .OR. ( IPL. EQ.6) .OR. ( IPL. EQ.7) ) GO TO 90 
FAC=SXR*CTHR ' 

CON=0 . 

CALL PLTCHR ( FAC, CON, ROT) 

90 CALL SYMBOL (-1 . ,YQR-4. 5, . 1 4, TITLE, 0. ,60) 

C RESTORE ORIGIN TO ORIGINAL POSITION 
CALL PLOT (-3. ,YOR-5.5,-3) 

CALL FRAME 
RETURN 

100 FORMAT (A6.19H SPEED DISTRIBUTION) 

END 


SUBROUTINE LOCUS 

C PLOTS COMPLEX CHARACTERISTIC HODOGRAPH PLANE 
COMPLEX SB , HSQP R , XI I , SFROMX , CSQRT , XIMIN , XIMAX 
DIMENSION CONL( 20) , TEMP(6l), TITLE(12) 

REAL MACHN 

COMMON SI(300) ,QIN(300) ,SS(600) ,QQ(600) ,XX(600) ,UBODY(300) ,VB0DY(3 
100) ,XB0DY(300) ,YB0DY(300) ,XREAL(300) ,YREAL(300) , S(300) ,QL(300) ,MAC 
2HN(300) ,FP(300) ,FPP(300) ,FPPP(300) 

COMMON /I / NP,KBM,MODE,NF,NN,MM,NI,NX,IS,KC,LBM, JJ,KK,NB,NC,MRP,NJ 
1 ,KF, NBPS, NFC.NRN, NPTS, NT, IPLT, LOFF,KP, NOSE, NCAS 
COMMON /2/ PI, TP,GRID,TOL 
COMPLEX XIA,XIB,XIC,DZ 

COMMON /3/ R, R1 , R2 , RATC,PHMN,GAM,WTAIL,XIA,XIB,XIC,UA,UB, VA, VB,UC, 
1 VC , TRANU , TRANL, CONE , CTWO , CTHR, EP, RN, SO , THNOS , DZ 
REAL MACH 

COMMON /A/ GAMMA, MACH, RHOINF, EMU.QSTRSQ 
EXTERNAL SFROMX, CSQRT 
IPL=MOD(IPLT, 10) 

IF ( ( IPL. EQ.O) .OR. ( IPL. EQ.5) ) RETURN 
GAMM=(GAMMA-1 .)/2. 

C0SQ=GAMM+1 . /(MACH*MACH) 

XCEN=5. 5 
YCEN=6. 0 
SF=5.5/( R1 +R2) 

C SPECIAL FORMAT STATEMENTS FOR GREEK LETTERS IN CAPTION VIA NBSLIB 
RA=REAL(XIA) 

RB=REAL(XIB) 

RC=REAL(XIC) 

AIMA=AIMAG(XIA) 

AIMB=AIMAG(XIB) 
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AIMC=AIMAG(XIC) 

IF (CABS(XIA-XIB) .LT.TOL) GO TO 10 

ENCODE (70, 100, TITLE) RA, AIMA, RB, ALMB, RC , AIMC 

CALL SYMBOL (2.0, 1 . , .1 4, TITLE.O. , 70) 

GO TO 20 

10 ENCODE (70, 110, TITLE) RA, AIMA, RC , AIMC 
CALL SYMBOL (2.5, 1 .1 4, TITLE.O. ,70) 

C SCALE AND CENTER PLOT 

20 YT0P=>R2*SF 
YSZ=2. *YTOP 
XT0P=R1 *SF 
XSZ=2. *XTOP 
IX=60 

JX= INT ( R2 * FLOAT ( IX) /R1 +TOL) 

CALL PLOT (XCEN-XTOP, YCEN-YT0P.-3) 

XIMIN=-CMPLX(R1 ,R2) 

C FIND LEVEL CURVES OF Q 

XIMAX=-XIMIN 
IND=1 

IF (IPL.LT.5) GO TO 40 
IND=20 ■ 

30 IF (C0SQ.LE.8. ) GO TO 40 
COSQ=.25*COSQ 
GO TO 30 

40 DO 50 J=1 , IND 

EMX=FLOAT( IND+1 - J) /FLOATC IND) 

XII=COSQ*EMX*EMX/( 1 . +GAMM*EMX*EMX) 

CALL GETHSQ(XII, SB, HSQPR) 

50 CONL( IND+1 -J)=REAL( SB) 

CALL CONTOR ( IX, JX, IND.XSZ.YSZ, SFROMX.CONL, TEMP,XIMIN,XIMAX) 

CALL PLOT (XT0P,YT0P,-3) 

RA=SF*REAL(XIA) 

AIMA=SF*AIMAG(XIA) 

RB=SF*REAL(XIB) 

AIMB=3F*AIMAG(XIB) 

RC=SF*REAL(XIC) 

AIMC=SF*AIMAG ( XIC ) 

CALL SYMBOL (RA, AIMA, .1 4, 1 1 ,0. ,-1 ) 

CALL SYMBOL (RC, AIMC, . 1 4, 1 1 , .0,-1 ) 

CALL SYMBOL (SF*R1 *COS(WTAIL) ,SF*R2*SIN(WTAIL) , .14,5,0. ,-1 ) 

CALL SYMBOL (SF*R1 *COS(THNOS) , SF*R2*SIN(THN0S) , . 1 4, 1 ,0. ,-1 ) - 
IPEN=3 

IF (NB.EQ.1) GO TO 60 

CALL SYMBOL ( RB, AIMB, . 1 4, 1 1 ,0. ,-1 ) 

CALL PLOT (RA, AIMA, IPEN) 

IPEN=2 

60 CALL PLOT (RB, AIMB, IPEN) 

CALL PLOT ( RC , AIMC , 2 ) 

IF ((IPL.EQ.3).OR.(IPL.EQ.4).OR.(IPL.EQ.8) .OR. ( IPL. EQ.9) ) GO TO 70 
NAX=R1 /.5 ; * 

AX= FLOAT( NAX+ 1 )*.5- 

CALL XYAXES (-SF*AX,0. ,-AX, AX, .50,2. *SF*AX,0. ,6H(F5. 1 ) ) 
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NAX=R2/.5 

AX=FLOAT( NAX+1 ) *. 5 

CALL XYAXES (0. ,-SF*AX,-AX, AX, .50,2. *SF*AX,90. , 6 H( F5 . 1 ) ) 
C PLOT PATHS OF INTEGRATION 
70 CALL PLPATH (NP.SF) 

IPEN=3 
DT=TP/NF 
DO 80 J=2, NT 
ANG=FLOAT( J-1 ) *DT 

CALL PLOT ( SF*R1 #C0S( ANG) , SF*R2*SIN( ANG) ,-IPEN) 

80 IPEN=2 

DO 90 J=2, NT 
ANG=FLOAT( J- 1 ) *DT 

90 CALL SYMBOL (SF*R1 *COS( ANG) ,SF*R2*SIN( ANG) , .07, 3,0 . ,-1 ) 

C RESTORE ORIGIN TO ORIGINAL POSITION 
CALL PLOT (-XCEN, -YCEN,~3) 

CALL FRAME 
RETURN 

100 FORMAT (9HM =, F5. 2, 1 H, , E5. 2, 4X,9I#B -,F5.2, 1H, ,E5.2,4X, 
19 m = , F5.2, 1 H, , F5. 2) 

110 FORMAT (8X.9H/M = , F5 . 2 , 1 H, , F5 . 2 , 4X , 9H#fl E5.2, 1 H, ,E5.2) 

END 


SUBROUTINE CONTOR (M,N, NC,XS,YS, FN.CONL, TEMP.XIMIN.XIMAX) 

C PLOTS LEVEL CURVES OF ABSOLUTE VALUE OF FN 
COMPLEX FN.W.XIMIN.XIMAX 
COMPLEX S 

COMPLEX XIA, XIB,XIC,DZ 

COMMON /3/ R,R1 ,R2,RATC,PhMN,GAM,WTAIL,XIA,XIB,XIC f UA,UB,VA,VB,UC, 
1 VC , TRANU , TRANL, CONE, CTWO , CTHR, EP, RN, SO, THNOS, DZ 
LOGICAL XSW, JSW,KSW 
DIMENSION CONL( 1 ) , TEMP( 1 ) 

EQUIVALENCE (A,JA), (B,JB), (C,JC), (D,JD) 

DATA ISW/.TRUE. /,T0L/.G1 / 

XS2=XS/2. 

YS2=YS/2. 

XSS=XS2 *XS2 
YSS=YS2*YS2 

RDXI = ( RE AL( XIMAX ) -RE AL( XIMIN) ) /FLOAT( M ) 

ADXI-C AIMAG (XIMAX ) -AIMAG ( XIMIN) ) /FLOAT( N) 

DX=XS/FLOAT(M) 

DY=YS/FLOAT( N) 

NCL=IABS( NC) 

MP=M+1 

DO 20 1=1 ,MP 
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S=XIMIN+FLQAT( 1-1 )*RDXI 

SCHK=REAL( S) *REAL( S) / (R1 *R1 ) +AIMAG( S) *AIMAG( S) / (R2 *R2 ) 

IF (SCHK.LE.1 .2) GO TO 10 

XR=( 1 . -AIMAG( S) *AIMAG( S) / (R2 *R2 ) ) *SIGN( 1 . , REAL( S) ) 

S=CMPLX(XR, AIMAG( S) ) 

10 W=FN(S) 

20 TEMP( I) =RE AL( W ) *REAL(W ) +AIMAG(W) *AIMAG(W) 

YP=0. 

DO 180 J=1 ,N 
XP=0. 

S=XIMIN+CMPLX(0 . , FLOAT( J) *ADXI) 

SCHK=REAL( S) *REAL( S)/ ( R1 * R1 ) +AIMAG( S) *AIMAG( S) / ( R2 *R2 ) 

IF (SCHK.LE.1. 2) GO TO 30 

XR=( 1 . -AIMAG( S) *AIMAG( S) / ( R2 *R2 ) ) *SIGN( 1 . , REAL( S) ) 

S=CMPLX ( XR, AIMAG( S) ) 

30 W=FN( S) 

TM=REAL(W) *REAL(W)+AIMAG(W) *AIMAG(W) 

YPP=YP+DY 
DO 170 1=1 ,M 
XPP=XP+DX 

S=XIMIN+CMPLX( FLOAT(.I) *RDXI, FLOAT( J) *ADXI) 

SCHK=REAL( S) *REAL( S) /( R1 *R1 ) +AIMAG( S) *AIMAG( S)/( R2*R2) 

IF (SCHK.LE.1. 2) GO TO MO 

XR=( 1 . -AIMAG( S) *AMAG( S) / ( R2 *R2 ) ) *SIGN( 1 . , RE AL( S) ) 

S=CMPLX(XR, AIMAG( S) ) 

MO W=FN(S) 

TP=REAL(W)*REAL(W) +AIMAG(W) *AIMAG(W) 

T0P=AMAX1 ( TP, IM, TEMP( I) , TEMP( 1+1 ) ) 

B0T=AMIN1 (TP,IM,TEMP( I) ,TEMP(I+1 )) 

IF (CONL(NCL).LT.BOT) GO TO 160 
DO 50 LI =1 , NCL 

IF (CONL(LI).GT.BOT) GO TO 60 
50 CONTINUE 
GO TO 160 

60 DO 1 50 L=L1 , NCL 

IF (CONL(L).GT.TOP) GO TO 1 60 
A=TEMP(I)-CONL( L) 

B=TEMP( 1+1 )-CONL(L) 

C=TM-CONL( L) 

D=TP-CONL( L) 

IA=ISIGN( 1 , JA) 

IB=ISIGN(2, JB) 

IC=ISIGN(M,JC) 

ID=ISIGN(8, JD) 

ITYP=8+( IA+IB+IC+ID+1 )/2 

GO TO (150,70,80,90,100,110,120,130,130,120,110,100,90,80,70,150), 
1 ITYP 
70 X.=XP 

Y1 =YP+DY*A/(A-C) 

X2=XP+DX*A/( A-B) 

Y2=YP 
GO TO 1 MO 
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80 X1=XP+DX*A/(A-3) 

Y1=YP 

X2=XPP 

Y2=YP+DY*B/(B-D) 

GO TO 140 
90 X1=XP 

Y 1 =YP +DY* A/ ( A-C ) 

X2=XPP 

Y2 =YP +DY*B/ ( B-D ) 

GO TO 140 
100 X1=XP 

Y1 =YP +DY*A/( A-C) 

X2=XP+DX*C/(C-D) 

Y2=YPP 
GO TO 1 40 

110 XI =XP+DX*A/(A-B) 

Y1 =YP 

X2=XP+DX*C/(C-D) 

Y2=YPP 
GO TO 140 
120 ISW=. FALSE. 

E=( A+D)+(B+C) 

RR=ABS(E/((A+D)-(B+C))) 

JSW=RR. LE. TOL 
IF (JSW) GO TO 90 
KSW=A*E.GT.O. 

IF (KSW) GO TO 60 
1 30 XI =XP+DX*C/(C-D) 

Y1 =YPP 
X2=XPP 

Y2 =YP +DY*B/ ( B-D ) 

1 40 CALL PLOT (XI Y1 3) 

PTST=(X2-XS2) *(X2-XS2)/XSS+(Y2-YS2) *(Y2-YS2)/YSS 
IF (PTST.LE.1 .05) CALL PLOT (X2,Y2,2) 

IF (ISW) GO TO 150 
ISW=. TRUE. 

IF (JSW) GO TO 110 
IF (KSW) GO TO 100 
GO TO 70 
150 CONTINUE 
160 TEMP( I) =TM 
XP=XPP 
TM=TP 

170 CONTINUE 
TEMP(M+1 ) =TP 
YP=YPP 

180 CONTINUE 
RETURN 
END 



-191 - 


SUBROUT ™E °LPATH (K1.SF) 

C PLOTS INTECniATION PATHS IN THE ELLPSE 
COMPLEX XI 
DIMENSION XI (300) 

COMMON /I / NP,KBM,MODE, NF, NN,MM,NI, NX, IS,KC, LBM, JJ,KK,NB, NC,MRP, NJ 
1 ,KF, NBPS, NFC ,NRN, NPTS, NT, IPLT, LOFF,KP, NOSE, NCAS 
COMPLEX XIA,XIB,XIC,DZ 

COMMON /3/ R, R1 , R2, RATC, PHMN,GAM,WTAIL,XIA,XIB,XIC ,UA,UB, VA, VB,UC, 
1 VC , TRANU, TRANL', CONE, CTWO.CTHR, EP, RN, SO, THNOS.DZ 
XI ( NC ) =XIC 
DO 30 M0DE=1 ,K1 

C PLOT SUBSONIC PATH OR FIRST TRANSONIC PATH 
KC=0 

CALL GTPATH (XI,NC+1,NN) 

IPEN=3 

DO 10 J=NC, NN 

CALL PLOT (SF*REAL(XI( J) ) , SF*AIMAG(XI( J) ) , IPEN) 

10 PEN-2 

IF (KC.EQ.O) GO TO 30 
C PLOT TRANSONIC PATH 

CALL GTPATH (XI,NC+1,NN) 

PEN-3 

DO 20 J=NC , NN 

CALL PLOT (SF*REAL(XI( J) ) ,SF*AIMAG(XI( J) ) ,IPEN) 

20 PEN=2 
30 CONTINUE 

C PLOT SUPERSONIC PwTH 

M0DE=*-1 2 
K=1 

AO KC=0 

CALL SUPATH (K,XI, NC+1 , NN) 

IF (NN.EQ.O) GO TO 70 
IPEN=3 

DO 50 J=NC,NN 

CALL PLOT ( SF*REAL(XI( J) ) ,SF*AIMAG(XI( J) ) , IPEN) 

50 IPEN=2 

CALL SUPATH (K, XI, NC+1 , NN) 

IPEN=3 

DO 60 J=NC,NN 

CALL PLOT ( SF*REAL(XI( J) ) , SF*AIMAG(XI( J) ) , PEN) 

60 IPEN=2 
K=K+1 
GO TO AO 
70 CONTINUE 
RETURN 
END 
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SUBROUTINE BDYPLT (NIN,DZ,TC) 

C PLOTS PROFILE IN HORIZONTAL POSITION FOR ISOLATED AIRFOIL 
REAL MACHN 

COMMON SI(300) ,QIN(300) ,SS(600) ,QQ(600) ,XX(600) ,UB0DY(300) ,VBODY(3 
100) ,XB0DY(300) ,YBODY(300) ,XREAL(300) ,YREAL(300) , S(300) ,QL(300) ,MAC 
2HNC300) ,FP(300) ,FPP(300) ,FPPP(300) 

COMMON /I / NP,KBM,MODE,NF,NN,MM,NI,NX,IS,KC,LBM,JJ,KK,NB,NC,MRP,NJ 
1 , KF, NBPS, NFC , NRN, NPTS, NT, IPLT, LOFF.KP, NOSE, NCAS 
REAL MACHA.MACHB 

COMMON H / MACHA.MACHB, ANGLA, ANGLB 
DIMENSION TITLE(IO) 

COMPLEX DZ 

DIMENSION XT(500) ,ST(500) ,YT(500) ,YP(500) ,YPP(5 00) ,YPPP(500) 
DX=REAL(DZ) 

DY=AIMAG(DZ) 

SC=1 0. /AMAX1 (XB0DY(1 ) ,XBODY(KP) ) 

ENCODE (50, 30, TITLE) DX.DY.TC 
CALL SYMBOL (2.0, 2. ,. 1 4, TITLE, 0. ,50) 

IF (NB.NE.1) ENCODE (50, 40, TITLE) ANGLA, ANGLB 
IF (NB.EQ.1) ENCODE (50, 50, TITLE) ANGLA 
CALL SYMBOL (2.0, 1 . , .1 4, TITLE, 0. ,50) 

C FIND ORIGIN FOR PLOT DEPENDING ON ORIENTATION OF AIRFOIL 
YMAX=0. 

YMIN=0 . 

DO 10 J-1 ,KP 

YMAX= AMAX1 ( YMAX , YBODY ( J) ) 

10 YMIN=AMIN1 (YMIN, YBODY (J)) 

X0R=1 . 

Y0R=6 . - . 5*SC*( YMAX-YMIN) 

CALL PLOT (X0R,Y0R,-3) 

IPEN=3 

NPLT=201 

DS=2 . /FLOAT( NPLT-1 ) 

ST( 1 ) =-1 . 

DO 35 J=2 , NPLT 
35 ST( J) =ST( J- 1 ) +DS 
ST( NPLT) =1 . 

CALL SPLIF(KP, S.XREAL, FP, FPP, FPPP,3,0. ,3,0. ) 

CALL INTPL(NPLT,ST,XT, S.XREAL, FP, FPP, FPPP) 

CALL SPLIF(KP, S, YREAL, FP, FPP, FPPP, 3,0. ,3,0. ) 

CALL INTPL( NPLT, ST, YT,S, YREAL, FP, FPP, FPPP) 

DO 20 J=1 , NPLT 

CALL PLOT(SC*XT( J) ,SC*YT( J) ,IPEN) 

20 IPEN=2 

C RETURN ORIGIN 

CALL PLOT (-X0R,-Y0R,-3) 

RETURN 
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30 FORMAT (5X5HDX = F5-3.5X5HDY «* F5.3.5X6HT/C = E5.3; 
40 FORMAT (7X,9HANGLE1 = F7.2,5X,9HANGLE2 = F7.2) 

30 FORMAT (1 4X, 18HANGLE OF ATTACK = F5.3) 

END 


SUBROUTINE CASCAD (TITLE, TC.GC , GAP, CTHR, ROT) 

C PLOTS CASCADE OF AIRFOILS 

COMMON /I / NP,KBM,MODE, NF, NN,MM,NI, NX, IS,KC , LBM, JJ,KK,NB, NC,MRP, NJ 
1 ,KF, NBPS, NFC,NRN, NPTS, NT, IPLT, LOFF,KP,NOS£,NCAS 
REAL MACHN 

COMMON SI(300) ,QIN(300) ,SS(600) ,QQ(600) ,XX(bOO) ,UB0DY(300) ,VB0DY(3 
100) ,XBODY(300) ,YB0DY(300) ,XREAL(300) ,YREAL(300) , S(300) ,QL(300) ,MAC 
2HN(300) ,FP(300) ,FPP(300) ,FPPP(300) 

COMMON /2/ PI, TP,GRID,TOL 
COMPLEX R0T1 , RCT 
DIMENSION TITLE(IO) 

DIMENSION XT(500) ,ST(500) ,YT(500) ,YP(500) ,YPP(500) ,YPPP(500) 

C FIND SCALE FACTORS 

XFAC=AMAX1 (XREAL( 1 ) ,XREAL(KP) ) 

YMAX=0 . 

YMIN=0. 

DO 10 J=1 , KP 

YMAX=AMAX1 (YMAX,YREAL( J) ) 

1 0 YMIN=AMIN1 (YMIN, YREAL( J) ) 

YFAC=FLOAT( NCAS-1 ) *GAP+(YMAX-YMIN) 

SCF=AMIN1 (8./XFAC.8./YFAC) 

FAC=SCF*CTHR 

X0R=5 . 5- . 5 *SCF*XFAC 

Y0R=6 . 0- . 5*SCF*YFAC 

ENCODE (25, 40, TITLE) GC 

CALL SYMBOL ( 3 * » 1 - » .14, TITLE, .0,25) 

CALL PLOT (X0R,Y0R,-3) 

CON=-GAP 

DO 30 M=1 ,NCAS 

CON=CON+GAP 

IPEN=3 

NPLT=201 

DS=2. /FLOAT( NPLT-1 ) 

ST( 1 )=-1 . 

DO 35 J=2 , NPLT 
35 ST( J) =ST( J- 1 ) +DS 
ST( NPLT) =1 . 

CALL SPLIF(KP, > c XREAL, FP, FPP, FPPP, 3,0. ,3,0. ) 

CALL INTPL( NPLT, ST, XT, S.XREAL, FP, FPP, FPPP) 

CALL SPLIF(KP,S,YREAL,FP, FPP, FPPP, 3,0. ,3,0.) 
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CALL INTPL( NPLT,ST,YT, S, YREAL, FP, FPP, FPPP) 
DO 20 J=1 , NPLT 

CALL PLOT( SCF*XT( J) , SCF*(YT( J) +CON) , IPEN) 
20 IPEN=2 

R0T1 =CMPLX(0. , SCF*CON) 

CALL PLTCHR ( FAC , R0T1 , ROT) 

30 CONTINUE 

C RESTORE ORIGIN TO ORIGINAL POSITION 
CALL PLOT (-X0R.-Y0R.-3) 

RETURN 

40 FORMAT (14X6HG/C = F5.3) 

END 


SUBROUTINE PLTCHR (FAC, CONST, ROT) 

C PLOTS CHARACTERISTICS IN THE REAL SUPERSONIC ZONE 
COMMON /G/ N1 ,N3,N4,N7,M1 
REAL MACHN 

COMMON S 1(300) ,QIN(300) ,SS(600) ,QQ(600) ,XX(600) ,UBODY(300) ,VB0DY(3 
100) .XBODY(SOO) ,YB0DY(300) ,XREAL(300; , YREAL(300) , S(300) ,QL(300) ,MAC 
2HN(300) ,FP(300) ,FPP(300) ,FPPP(300) 

COMPLEX CHAR, ROT, CONST, SB, Cl ,C2 ,C3 ,C4 ,R0T1 ,R0T3 
COMMON CHAR(50,50) 

DIMENSION NPT(50) 

REWIND N7 
10 READ (NY) K2 

IF (E0F(N7) .EQ.O) GO TO 20 
RETURN 

C READ IN CHARACTERISTIC POINTS 
20 DO 40 J=1 ,K2 
READ (N7) NPT(J) 

KL=NPT( J) 

IF (KL. EQ.O) GO TO 40 
KLM=KL-1 

READ (NT) (CHAR( J,K) ,K=1 ,KLM) 

READ (N7) CHAR(J.KL) 

IPEN=3 

DO 30 K=1 ,KL 

SB=ROT*FAC*CHAR( J,K) +CONST 

CALL PLOT ( REAL( SB) , AIMAG( SB) , IPEN) 

30 IPEN =2 
40 CONTINUE 

C PLOT SECOND FAMILY OF CHARACTERISTICS 
DO 90 K=1 ,K2 
IPEN=3 

Cl =CHAR(K, 1 ) 



C2=C1 

DO 50 L=1 ,K 
J=K+1 -L 

IF (NPT(J) .LE.L) GO TO 50 
■ C2=CHAR(J,L) 

SB=FAC*RCT*CHAR( J, L) +CONST 

CALL PLOT ( REAL( SB) , AIMAG( SB) , IPEN) 

IPEN=2 
50 CONTINUE 

IF (CABS(C1-C2) . LE. 1 . E-05) GO TO 90 
FIND BODY POINT FOR THIS CHARACTERISTIC 
R0T1 =C0NJG(C2-C1 ) /CABS(C2-C1 ) 

ANG4=1 . 

ANG3=ANG4 

IK=0 

DO 70 J=1 ,K2 

IF (NPT( J) .EQ.O) GO TO 70 
C3=CHAR( J,NPT( J)) 

ROT3=(C3-C1)*ROT1 

ANG3=ATAN2( AIMAG(ROT3) ,REAL(R0T3) ) 

IF (IK. EQ.O) GO TO 60 

IF ( ( ANG3*ANG4. LE.O. ) . AND. ( J.GT. 1 ) ) GO TO 80 
60 IK=IK+1 
C4=C3 

70 AInJQ4 =ANG3 
GO TO 90 

80 ANG3=ABS(ANG3) 

ANG4=ABS( ANG4) 

SB =FAC * ROT * ( ANG3 *C4 +ANG4 *C3 ) / ( ANG3 +ANG4 ) +CONS T 
CALL PLOT ( REAL( SB) , AIMAG( SB) , IPEN) 

90 CONTINUE 
GO TO 10 
END 


SUBROUTINE XYAXES (X,Y , BOT, TOP, SCF, TOT L, ANGL, FORMAT) 
PLOTS AND LABELS COORDINATE AXIS 
COMPLEX ZB, ZT, H,COR 
H=1 . 

C0R=(-.40,-.3) 

AN=0. ' 

IF (ABS(ANGL) .NE.90.) GO TO 10 
H-CO.,1.) 

COR=(- .75,0. ) 

AN=90. 

10 CALL PLOT (X+REAL( H*TOTL) ,Y+AIMAG(H*TOTL) ,3) 
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CALL PLOT (X,Y, 2) 

SCL=SCF*TOTL/ ( TOP-BOT ) 

B=BOT 
SC=0 . 

ZB=CMPLX(X,Y) 

20 ZT=ZB+COR 

CALL SYMBOL (REAL(ZB) , AIMAG(z'B) , .14, 13, AN.-1 ) 
ENCODE (1 0, FORMAT, A) B 

. CALL SYMBOL (REAL(ZT) ,AIMAG(ZT) ,.14,A,0.,5) 
SC=SC+SCL 
B=B+SCF 
ZB=ZB+H*SCL 

IF (SC.LE.TCTL) GO TO 20 

RETURN 

END 



